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Floppy- 

Station für 
Colour 
Genie 


Es handelt sich um Komplettstationen, bestehend aus einem Doppelgehäuse mit Netzteil 
für zwei Laufwerke. Ein Controller für maximal vier Laufwerke ist ebenfalls eingebaut. 

Das Betriebssystem befindet sich im EPROM, so daß kein RAM-Speicherplatz verloren 
geht. Das Betriebssystem ist ähnlich dem G-DOS des Genie l/ll oder Genie III. Format- 
mäßig sogar identisch, das heißt, es können alle Programme des Genie l/ll oder TRS 80 
(unter NEWDOS 80) direkt von der Diskette eingelesen werden. Basicprogramme sind so- 
mit direkt übertragbar und lauffähig, bei Maschinenprogrammen hängt es von dem be- 
nutzten Speicherbereich und den Einsprungadressen ab. 

Wie im NEWDOS 80 sind verschiedene Laufwerktypen von 40 Track bis 80 Track doppel- 
seitig anschließbar. 

Die Station ist direkt an das Colour Genie anschließbar (alle Kabel im Preis enthalten I). 
Der Controller arbeitet auch mit Double Density, so bekommen Sie mehr Speicherplatz 
zum gleichen Preis. Weitere Bemerkungen entnehmen Sie bitte unserem Hinweisblatt "Was 
ist ein Floppy-Disk?". 

Der Preis hängt von der Laufwerkbestückung wie folgt ab : 

1 . Station mit Controller und Betriebssystem : 

bestückt mit 1 Laufwerk 40 Tr. (180 K) 1295,- DM 

bestückt mit 2 Laufwerken 40 Tr. (360 K) 1895,- DM 

bestückt mit 1 Laufwerk 80 Tr., doppels. (720 K) 2198,- DM 

bestückt mit 2 Laufwerken 80 Tr., doppels. (1,4 MB) 3098,-- DM 

Direkt zum Mitbestellen : 

10er Pack maxell Disketten MD ID 85,- DM 

10er Pack disky Disketten MCL 40/1/d 65,- DM 

Spiele- Diskette mit 10 schönen Basic-Spieien 49,- DM 

Abenteuer- Diskette, entfliehen Sie dem Alltag durch eine Reise durch den Mittelpunkt der 
Erde oder entdecken Sie Schätze auf einer Pirateninsel, ... 69,- DM 


SCHMIDTKE 


Weiteres aus unserem Programm: 

Genie I mit 64 K 998,- DM 

Geniell mit 64 K 1145,- DM 

Nachrüstsatz für Genie l/ll von 16 K 
auf 64 K RAM 98,- DM 

16 K -Modul für Colour Genie 98,- DM 
Option EG 64 (zum einlöten) oder Lu- 
bomir-Soft-Switch (steckbar) ermöglicht 
CP/M 2.2 auf dem Genie l/ll 195- DM 
passend CP/M 2.2 495- DM 


electronic 

Büro- und Personalcomputer 

Sondka ul Straße 84 - Telefon: 0241 -232 17 

5100 AACHEN 

io. nn - n.oa Uhr 

14.30 - 10.30 Lür 
10.00 - 14.30 Uhr 
donnerstags geschlossen 
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in eigener Sache 


Liebe Leserin, lieber Leser ! 

Jetzt gibt es die GENIE DATA 
schon ein ganzes halbes Jahr lang, 
3 Ausgaben sind bereits erschie- 
nen, die 4 liegt in diesem Moment 
vor Ihnen. 

Uns scheint das Grund genug zu 
sein, einmal das Wort an Sie zu 
richten. Es gibt da einige Dinge, 
die einfach einmal gesagt werden 
müssen . 

Sofort zu Anfang, damit es 
nicht vergessen wird, die GENIE 
DATA Nummer 1 und 2 sind rest- 
los vergriffen. Nachbestellungen 
können nicht mehr erledigt wer- 
den. Wir bitten Sie dafür um Ver- 
ständnis, möchten Sie aber gleich- 
zeitig auf einen Sammelband hin- 
weisen, der am 15. Dezember '83 
erscheint und in dem die besten 
Artikel und Programme der Num- 
mern 1 und 2 zusammen gefaßt 
sein werden. Diesen Sammelband 
können Sie ab sofort bei uns be- 
stellen, oder zum gegebenen Zeit- 
punkt bei Ihrem GENIE DATA 
Händler kaufen. Er wird 8 DM 
kosten. 

Eine andere Sache ist das mit 


dem GENIE DATA Software Ser- 
vice. Er sollte eigentlich mit die- 
ser GENIE DATA zum ersten 
Mal erscheinen. Das ist aus ver- 
schiedenen Gründen leider nicht 
möglich, und wir bitten dafür 
um Verständnis. Alle bisher bei 
uns eingegangenen Bestellungen 
werden wir dann ab der nächsten 
Nummer erledigen. 

Sollten Sie auch Interesse am 
GENIE DATA Software Service 
haben, so können Sie die Pro- 
gramm-Cassetten direkt beim Ver- 
lag bestellen oder abonnieren. 
Eine einzelne Cassette kostet 
19,80 DM ein Abo nur 99,80 DM. 

So, und jetzt zum neuen "Ge- 
sicht" der GENIE DATA: 

Wie Sie sehen, hat sich das Aus- 
sehen der GENIE DATA ziem- 
lich radikal gewandelt, das reicht 
von unserem neuen Papier bis zur 
jetzt sehr professionellen Satzge- 
staltung. Die GENIE DATA hat 
zwar nicht mehr Umfang als sonst, 
aber bedingt durch die wesent- 
lich schmalere Schrift, die wir 
jetzt verwenden, mehr Inhalt. Wir 
hoffen, daß Sie mit dem neuen 
Aussehen ebenso zufrieden sind 


wie wir. Vielleicht schreiben Sie 
uns einmal Ihre Meinung dazu. 

Auch eine Beurteilung der ver- 
schiedenen Artikel in Form von 
Leserbriefen, würden wir sehr be- 
grüßen, da wir uns dann noch 
mehr als bisher nach Ihren Wün- 
schen richten können. 

Und wenn Sie selbst einen in- 
teressanten Artikel in Ihrer Schub- 
lade haben, senden Sie ihn uns. 

Noch ein kurzer Satz zu dem 
Wort Marktführer auf dem Um- 
schlag. Mittlerweile, das haben 
Sie vielleicht auch schon gemerkt, 
hat die GENIE DATA einige Mit- 
bewerber bekommen. Wie Sie aber 
bei einem objektiven Vergleich der 
einzelnen Hefte feststellen kön- 
nen, sind wir tatsächlich der 
Marktführer, und darauf sind wir 
zurecht stolz. Wir werden auch 
alles tun, damit das in Zukunft 
so bleibt. 

So und jetzt genug geredet, 
stürzen Sie sich in die faszinieren- 
de Welt der Hard- und Software. 
Viel Spaß mit dieser GENIE 
DATA. 

Ihre GENIE DATA Redaktion 
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Coiour Genie 
spricht deutsch 


Sind Sie je mitten in der Nacht 
aufgewacht, und haben eine wun- 
derbare Vision gehabt? Wahr- 
scheinlich nicht. Aber wenn doch, 
haben Sie vielleicht dann davon 
geträumt, daß Ihr Coiour Genie 
einmal deutsch mit Ihnen spricht? 
Das es artig "Schreibfehler” sagt, 
anstatt Ihnen ein verstümmeltes 
?SN Error an den Kopf zu werfen? 
Das es nicht mehr Ready sondern 
Fertig sagt, oder vielleicht sogar 
"Ich bin fertig Xyz"? 

Dann ist dieses Programm gehau 
das Richtige für Sie! Aber es ist 
auch dann genau das Richtige für 
Sie, wenn Sie immer schon mal 
wissen wollten, wie 'man diesen 
fest ins ROM eingebrannten Ba- 
sic Interpreter so verändern kann, 
daß er genau das tut, was man 
will, denn das zeigt dieses Pro- 
gramm sehr schön. 

Was passiert also, wenn Sie dieses 
Programm mit Hilfe des Editor/ 
Assemblers eingeben, und auf Cas- 
sette gespeichert haben? Sie laden 
es ein, und nach wenigen Sekun- 
den meldet der Computer sich 
wieder mit " Jetzt spricht das Co- 
iour Genie deutsch." Darunter 
steht "COLOUR BASIC" und 
"Fertig". 

Fertig? Da sehen wir schon die 
erste Veränderung. Das langweilige 
Ready wird durch (ein weniger 
langweiliges?} "Fertig" ersetzt. 

Die zweite Veränderung zeigt sich, 
wenn wir uns vertippen, und z. B. 
anstelle von "CLOAD", "CLOD" 
eingeben. Der Computer sagt näm- 
lich nicht ?SN Error sondern 
"Schreibfehler". Natürlich werden 
auch alle anderen Fehlermeldun- 
gen im deutschen Klartext ausge- 
geben, z. B. "Zahl zu groß" oder 
"Division durch Null". 

Mit anderen Worten : 

Ein nützliches Programm für den 
Anfänger, der das Fehlermeldungs- 
Abkürzungsgestammel des Basics 


noch nicht auswendig gelernt hat. 
Aber auch ein nützliches Pro- 
gramm für den Profi: Er kann da- 
ran sehen, wie man das Basic nach 
seinen eigenen Wünschen ändern 
kann (natürlich in Grenzen). 

Das Programm bleibt solange -ak- 
tiv, bis der Computer abgeschaltet 
wird, oder ein Kaltstart (Mem Si- 
ze) ausgeführt wird. Die Memory 
Size Reservierung nimmt das Pro- 
gramm selbständig vor, daher ha- 
ben Sie nach dem Einlesen etwas 
weniger Platz für Basic-Program- 
me. Das Programm arbeitet, so wie 
es hier abgedruckt ist, nur auf ei- 
nem Coiour Genie mit 16 K Erwei- 
terung. Wenn Sie nur die Grund- 
version ohne Zusatzspeicherkarte 
besitzen, müssen Sie Zeile 10 im 
Programm in ORG 07D6AH 
ändern. 

So, und hier die Programmbe- 
schreibung. Dabei setze ich voraus, 
daß Sie halbwegs Maschinenspra- 
che (Assembler) beherrschen. 
Fangen wir ausnamsweise mal hin- 
ten an: Ab Zeile 1020 wird der 
DOS-Link für die System-Routine 
des Basic Interpreters überschrie- 
ben. DOS- Links sind bestimmte 
Stellen im RAM (deren Inhalt 
wir also verändern können) die 
vom Basic Interpreter angesprun- 
gen werden, bevor er etwas be- 
stimmtes tut, Normalerweise steht 
in den DOS -Links ein RET, ein 
Rücksprungbefehl, so das diese 
DOS- Links keine Wirkung haben. 
Wenn wir aber einen Sprungbe- 
fehl zu unserem eigenen Pro- 
gramm dort hinschreiben, dann 
führt der Basic Interpreter unser 
Programm aus. Mit einem RET 
am Ende unseres Programmes kön- 
nen wir dann die Kontrolle an 
den Basic Interpreter zurück 
geben. 

Nun dieses DOS-Link wird von 
der System-Routine jedesmal dann 
aufgerufen, bevor das x? ausge- 


geben wird. Wenn wir also "Sys- 
tem" eingeben, dann wird erst die 
Adresse 41E2H aufgerufen, dort 
steht ein RET, es wird also zum 
Basic zurückgasprungen, und dann 
erst wird das Sternchen mit dem 
Fragezeichen ausgegeben. Wenn 
wir also mit ORG 41E2H und ei- 
nem JP an den Anfang unseres 
Programmes diese Adresse über- 
schreiben, dann startet unser Pro- 
gramm automatisch. Eine genaue 
Erklärung dazu steht auch noch 
mal in GENIE DATA Nr. 2 auf 
Seite 29. 

Ist das Programm also fertig ein- 
gelesen, wird zu IN IT gesprungen, 
wo die übrigen DOS- Links initi- 
alisiert werden, nämlich 41A6H, 
der angesprungen wird, bevor Ba- 
sic eine Fehlermeldung ausgibt, 
und 41 ACH, der angesprungen 
wird, bevor Ready ausgegeben 
wird. Anschließend wird ein RET 
(0C9H) nach 41E2H geschrieben, 
damit der System -Befehl wieder 
funktioniert. Danach wird "Jetzt 
spricht ..." ausgedruckt, und HL 
mit dem korrekten Mem Size 
Wert geladen, und zu der Stelle 
im Basic gesprungen, die diesen 
Wert abspeichert (102H). 

Jedesmal wenn Basic jetzt Ready 
ausdrucken will, wird vorher über 
den DOS-Link "NREADY" an- 
gesprungen. Dort wird auf den 
Text-Modus geschaltet (LGR), die 
Cassette initialisiert, ein Zeilen- 
vorschub und "Fertig" ausge- 
geben. Anschließend wird wieder 
ins Basic gesprungen. 

Jedesmal wenn eine Fehlermel- 
dung ausgegeben werden soll, wird 
vorher "FEHLER" angesprungen. 
Dabei steht der Fehlercode im E 
Register. Er wird durch zwei di- 
vidiert (RRCA) und um 1 erhöht 
(INC A). Jetzt steht der korrekte 
Wert im A Register. Anhand die- 
ses Wertes wird in der Tabelle 
die entsprechende Fehlermeldung 


SOFTWAR E 


gesucht und ausgedruckt. 

ja wird hinter der Fehlermeldung ist nicht Null. Hier noch eine Ta- 

Dann wird überprüft, ob die Zei- noch ein Punkt ausgedruckt, sonst belle der verwendeten Unterpro- 

lennummer, in der der Fehler auf- wird 

ins Basic zurückgesprungen, gramme im Basic- ROM. 

getreten ist, gleich Null ist, 

wenn vorausgesetzt, die Zeilennummer Thomas M. Binzinger 

38B0H LGR 

Entspricht dem LGR Befehl des Basics. 

20F9H CR 

Gibt einen Zeilenvorschub aus. 

28A7H PRINT 

Druckt den String aus, auf den HL zeigt, Endzeichen ist Null. 

33 H PRINT 

Druckt das Zeichen aus, das im A Register steht. 

DOS- Links 



41 A6H Wird vor der Ausgabe einer Fehlermeldung aufgerufen. 

41 E2 Fl Wird nach der Eingabe von 

"SYSTEM" aufgerufen. 

41 ACPI Wird vor der Ausgabe von ' 

'READY" aufgerufen. . 

10 

ORG 

0BD6AH 

20 INIT 

LD 

A,0C3H 

30 

LD 

C41A6H), A 

40 

LD 

HL, FEHLER 

50 

LD 

(41A7H),HL 

60 

LD 

HL, NREADY 

70 

LD 

A,0C3H 

80 

LD 

(41 ACH), A 

90 

LD 

(41ADH),HL 

100 

LD 

A.0C9H 

110 

LD 

(41E2H), A 

120 

LD 

HL , M.ESS1 

130 

CALL 

28A7H 

140 

LD 

HL, NREADY 

150 

DEC 

HL 

160 

JP 

102H 

170 MESS1 

DEFM 

'Jetzt spricht das Colour-Genie Deutsch !' 

180 

DEFW 

ODODH 

190 

NOP 


200 NREADY 

CALL 

38BOH 

210 

CALL 

1F8H 

220 

CALL 

20F9H 

230 

LD 

HL, RMESS 

240 

CALL 

28A7H 

250 

POP 

HL 

260 

JP 

1.A2BH 

270 RMESS 

DEFM 

'Fertig . * 

280 

DEFB 

13 

290 

NOP 


300 FEHLER 

POP 

HL 

310 

LD 

A, E 

320 

CP 

2 DH 

330 

JR 

LAB1 

340 

LD 

A.26H 

350 LAB1 

RRCA 


360 

INC 

A 

370 

LD 

B,A 
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380 

LD 

390 

CP 

400 

JR 

410 LAB 2 

INC 

420 

LD 

430 

CP 

440 

IR 

450 

DJNZ 

460 LAB3 

INC 

470 

CALL 

480 

LD 

490 

LD 

500 

RST 

510 

JP 

520 

LD 

530 

CALL 

540 

LD 

550 

JP 

560 FETAB 

DEFM 

570 

NOP 

580 

DEFM 

590 

NOP 

600 

DEFM 

610 

NOP 

620 

DEFM 

630 

NOP 

640 

DEFM 

650 

NOP 

660 

DEFM 

670 

NOP 

680 

DEFM 

690 

NOP 

700 

DEFM 

710 

NOP 


HL.FETAB-l 

0 

Z , LAB3 
HL 

A,(HL) 

0 

NZ , LAB2 

LAB2 

11L 

28A7H 

HL ,(40A2H) 

DE,OFFFFH 

18H 

HZ , 1A11H 

A,V 

33H 

HL , (40A2H) 

1A11H 

’NEXT ohne FOR' 
'Schreibfehler' 

'RETURN ohne GOSUB' 
'Kein DATA-Element mehr 
'Illegaler Funktionsaufruf' 
'Zahl zu gross' 

'Kein Speicherplatz mehr' 
'Falsche Zeilennummer' 


TRS-80 Model III 


NEU! 

H. Grosser, L. Röckralh: 

ROM-Listing 

• vollst. cSsassem&Sert und deutsch kommentiert 

• RAM-I/Q-Adresaen 

• 2 vollständige Ustlrrgs 3000H-37FFH (Amerlka- 
nisch/Deulsch) und Vergleich 

• Vergleich Model I / Model III (Unterprogramme) 

• genaue Erläuterung Beider Kassettenformate 

• Welt über ISO Seiten 

für nur 79 DM Ink). 7% MwSt. 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


COLOUR-GENIE 


NEU! 

N. Heicke, L. Röckralh: 

ROM-Listing 

• vollst. disassembllert und kommentiert 
(OOOOH-3FFFH) 

• RAM-I/O-Adressen 

• neueste Version! 

• Bildschirmformate, Speicheraufteilung 

• genaue Unterprogrammerklärungen 
für den Programmierer 

• Ein absolutes Muß für jeden Anwender 

für nur 59 DM (inkl. 7% MwSt) 


L. Röckrath 

Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


GENIE III 

NEU! 

J. Heloke, L. Röckrath 

DEBUG-Handbuch 

• vollst. disassembSenes und deutsch kommen- 
tiertes Usttng des ins RAM geladenen 8aslc- 
interpieters und des Bootstrapsroms 

• RAM-Adresson, 1/0-Adressan: insbes. 
CRT-Controller, Tastaturmotrix (Umlaute, 
Funktionstesten) 

• Uber 150 ausführlich dokumentierte Unterpro- 
gramme und DOS-Elnsprünge (GDOS 3.0) 

• Crossrelerenz 

• Ihr Weg zur optimalen Ausnutzung des Genie III 
durch Programmentwlcklung und eigene 
Änderungen 

für nur 98 DM (Inkl. 7% MwSt.) 

L. Röckrath 

Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 
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720 

DEFM 

'Feld Vereinbarung zu gross' 

730 

MOP 


740 

DEFM 

'Doppelt vereinbartes Feld' 

750 

NOP 


760 

DEFM 

'Division durch 0' 

770 

MOP 


780 

DEFM 

'Im direckt-Modus nicht ausfuehrbar 

790 

NOP 


800 

DEFM 

'Falscher Variablen typ' 

810 

NOP 


820 

DEFM 

'Zeichenkettenspeicherplatz zu Ende' 

830 

NOP 


840 

DEFM 

'Zeichenkette zu lang' 

850 

NOP 


860 

DEFM 

'Zeichenkettenformel zu komplex' 

870 

NOP 


880 

DEFM 

'kann nicht weitermachen' 

890 

NOP 


900 

DEFM 

'kein RESUME' 

910 

NOP 


920 

DEFM 

’RESUME ohne Fehler' 

930 

NOP 


940 

DEFM 

'Fehler unbekannt’ 

950 

NOP 


960 

DEFM 

'fehlender Operand' 

970 

NOP 


980 

DEFM 

'falsche Feld -Daten' 

990 

NOP 


1000 

DEFM 

'Befehl nur im Disk-Basic' 

1010 

NOP 


1020 

ORG 

41E2H 

1030 

JP 

1NIT 

1040 

END 

INIT 


ROM-LISTINGS 


Die Firma L. Röckrath, Aachen, 
gibt bereits seit geraumer Zeit für 
TRS 80 Modell 1 bzw. Genie I + 
!l kommentierte ROM-Listings 
heraus. Das dieses Programm auch 
auf die Computer Colour Genie 
sowie TRS Modell 3 und Genie 
III erweitert wurde, scheint uns 
Grund genug zu sein, diese Lis- 
tings einmal näher unter die Lupe 
zu nehmen. 

Vorweg sei noch gesagt, daß die 


Version für Genie I + II sowie 
TRS 80 Modell 1 schon seit län- 
gerer Zeit erhältlich ist, daß die 
Version für Colour Genie zum 
Erscheinungs-Zeitpunkt dieses Ar- 
tikels wohl auch verfügbar ist und 
daß Sie auf die Version für Genie 
III wohl noch kurze Zeit warten 
müssen. 

Jetzt aber zum Aufbau der Bü- 
cher. Zum Testen stand uns die 
Version für TRS 80 bzw. Video 


Genie zur Verfügung, es darf aber 
angenommen werden, daß die an- 
deren Versionen den erreichten 
Qualitätsstandard halten können. 
Die Verarbeitung der Bücher 
scheint uns ausreichend gut zu 
sein. Sie sind gebunden, wie man 
das ja auch erwarten kann. Aber 
das Wesentliche ist der Inhalt, auf 
den wir jetzt zu sprechen kom- 
men. 

Sie erhalten 109 Seiten Listingdes 
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Level II Basic Interpreters, selbst- 
verständlich gut dokumentiert, 2 
Seiten in denen Variationen der 
verschiedenen Systeme bespro- 
chen werden, 4 Seiten Informa- 
tionen über die verschiedenen 
RAM Adressen, 1 Seite I/O Adres- 
sen, 5 Seiten in denen die verschie- 
denen Unterprogramme bespro- 
chen werden, die Sie für Ihre Pro- 


gramme nutzen können, 3 Seiten 


in denen alle Basic Anweisungen 

I1D9 F5 

PUSH 

AF 

liCA FA DE U 

JP 

M, 1 IDE 

HDD AF 

X0P 

A 

11 DE 2F 

CPL 


11DF 3t 

INC 

A 

11E0 BO 

ADD 

B 

11E1 3C 

INC 

A 

11E2 82 

ADD 

D 

I1E3 47 

LD 

B.A 

11E4 ÖE 00 

LD 

C.Oö 

11E6 CD A4 12 

CALL 

12A4 

11E9 F! 

POP 

AF 

HEft F4 71 12 

CALL 

P, 1271 

11ED CI 

POP 

BC 

I1EE Fl 

POP 

AF 

11EF CC 2F 09 

CALL 

Z.092F 

11F2 Fl 

POP 

A^ 

11F3 38 03 

JR 

C,11FB 

11F5 83 

ADD 

E 

1 1F6 90 

SUB 

B 

11F7 92 

SUB 

D 

11F8 D5 

PUSH 

BC 

11F9 CD 74 10 

CALL 

1074 

11FC EB 

EX 

DE, HL 

11FD Dl 

POP 

DE 

11FE C3 BF 10 

JP 

10BF 


ZAHL SOLANGE MIT 


GENAU 6 

(!) ODER 

1201 D5 

PUSH 

DE 

1202 AF 

XOR 

A 

1203 F5 

PUSH 

AF 

1204 E7 

RST 

20 

1205 E2 22 12 

JP 

PO, 1222 

1208 3A 24 41 

LD 

A. (4124) 

1208 FE 91 

CP 

9l 

120D D2 22 12 

JP 

NC, 1222 

1210 11 64 13 

LD 

DE, 1364 

1213 21 27 41 

LD 

HL, 4127 

1216 CD D3 09 

CALL 

09D3 

1219 CD Al 0D 

CALL 

0DA1 

121C Fl 

POP 

AF 

12 1 D D6 OA 

SUB 

OA 

121F F5 

PUSH 

AF 

1220 18 E6 

JR 

1208 

1222 CD 4F 12 

CALL 

124F 

1225 E7 

RST 

20 

1226 30 OB 

JR 

NC, 1233 


und Funktionen mit Adressen im 
ROM gelistet sind und eine Erklä- 
rung des Aufzeichnungsformates 
von Cassetten. 

Die Seiten über das ROM-Listing 
sind alle einheitlich gehalten und 
sehr gut kommentiert, sie eignen 
sich sowohl für den 
Programmierer, der es nicht lassen 
kann in Assembler zu program- 
mieren und dabei gerne die Un- 
terprogramme im ROM ausnutzen 


möchte, als auch für den Basic- 
Programmierer, der einfach gerne 
mehr über seinen Computer wis- 
sen möchte. Wie die Seiten aus- 
sehen, zeigen wir unten in einem 
Beispiel-Ausdruck. Alles in allem 
können wir sagen, daß dieses 
ROM-Listing für jeden ein Muß 
ist, der mehr über seinen Compu- 
ter wissen möchte. 

Aber eigentlich ist es traurig, daß 
man sich sowas extra kaufen muß. 


- ANZAHL DER WEBZURUNDENDEN STELLEN RETTEN, KEINE STELLEN HE6ZURUNDEN? 
NEIN 
= 0 

POSITIVE ANZAHL ERMITTELN 

+ V0RKQHMAFELDLAEN6E 
♦ 1 

UND - 1. NENN VORZEICHEN VOR ZAHL 
ERGIBT '.'-STELLUNG 
PARAMETER FUER = 0 (KEIN 
STRING IN BUFFER 

GESAHTFELDLAENBE - GENAUIGKEIT > 0? 

JA. ENTSPRECHENDE ANZAHL NULLEN IN BUFFER 
FELDPARANETER ZURUECK 
NACHKÖNHAFELBLAENBE = 0? 

JA, AUS BUFFER ENTFERNEN 
ZAHL = 0? 

JA 

AUSZUGEBENDEN 10-EXP ERMITTELN 


FELDPARANETER RETTEN 
UNO 10-EXP IN BUFFER 
BUFFERENDE NACH HL 
FELDPARANETER NACH DE ZURUECK 
WEITER 


10D MULTIPLIZIEREN ODER DURCH 10D DIVIDEREN BIS 
16D (!) STELLEN 
jDE RETTEN 
; VERSCHIEBUNGEN = 0 
; VERSCHIEBUNGEN RETTEN 
; TYP TESTEN, SINGLE? 

; 2-EXP ZAHL >= 17D? 

; (ZAHL >= 65536D) 

(JA 

; ZEIGER AUF KONSTANTE 1D10 
; ZEIGER AUF V 
; 1D10 NACH V 
(ZAHL MAL 1D10 
{VERSCHIEBUNGEN ZURUECK 
10D 

5 UND NIEDER RETTEN 
{HEITER 

{ZAHL >= 1E6 (!) ODER 1D16 (»)? --> NACH 1243 
;TYP TESTEN, DOUBLE? 


03BB RESPR 
0D97 RLM 
0D6A RLMA 
ÖFOA RMLT10 
14C9 RND 
0982 RNEG 
077B RNULL 
14F0 RRND 
0090 RRX 
0955 RTESTX 
0703 SADD2 
0FB9 SADDA 


AUSGABE-FLA6 AUF DISPLAY UND CR AUF DRUCKER, WENN DRUCKKOPF NICHT IN POSITION 0 

SPEICHERBEREICH UM EIN BIT LINKS SCHIEBEN 

8 SPEICHERZELLEN RECHTS SCHIEBEN 

MULTIPLIZIERT REELLE ZAHL HIT 10D 

ERZEUGUNG EINER ZUFALLSZAHL 

NEGATIVEN WERT EINER REELLEN ZAHL BILDEN 

REELLE ZAHL = 0 

REELLE ZUFALLSZAHL ERZEUGEN 

SPEICHERBEREICH UM 1 BIT RECHTS SCHIEBEN 

TESTET REELLE ZAHL 

SINGLEADDITION: Z = ZI ♦ 0.5 

SUMME BILDEN 




Jetzt ist es endlich da 



COLOUR 

GENIE 

SCHACH 



Das stärkste Schachprogramm der Welt für Colour Genie! Erstellt von Gerhard W. 
Wolf im Alleinvertrieb von Ralf M. Hübben, Verlag für Computertechnik. 

Mit diesem Schachprogramm zeigt Ihr Colour Genie was es alles kann! 

Colour Genie Schach bietet Ihnen unter anderem: 

- Sieben Schwierigkeits-Stufen. Das heißt: Unser Schachprogramm ist ge- 
eignet für Anfänger, die sich in die Kunst des Schachspiels noch ein- 
finden wollen, und für fortgeschrittene Spieler. Colour Genie Schach ist 
Ihnen ein guter Schachlehrer und Spielpartner. 

- Die Problem-Stufe: 

Wenn Sie diese Funktion wählen, löst Ihr Colour Genie Ihnen auch die 
schwierigsten Schachprobleme. 

- Bei Colour Genie Schach können Sie frei wählen, welche Farbe Sie 
spielen möchten. 

Colour Genie Schach erkennt nur Züge an, die den Schachregeln ent- 
sprechen, aus diesem Grund ist es auch für Spieler, die die Regeln des 
Schach noch nicht genau kennen, bestens geeignet. 

Colour Genie Schach macht Ihnen auf Wunsch Zugvorschläge, die Sie an- 
nehmen oder ablehnen können. 

Colour Genie Schach bietet noch soviele weitere Vorteile, daß es uns 
nicht möglich ist, sie hier alle zu erwähnen, z. B. Darstellung des 
Schach-Brettes auf dem Bildschirm, Anzeige des momentan besten Zuges, 
und, und, und, 

Gibt es da eigentlich noch etwas zu überlegen? Nein !!!! 

Bestellen Sie sofort Ihre Cassette mit Colour Genie Schach! Denn: Colour Genie 
Schach bietet Ihnen ein unschlagbares Preis-Leistungs-Verhältnis ! 

BESTELL-NR. 27 ZUM SAGENHAFTEN SUPERPREIS VON NUR 59,- DM 

»> JEDER DER EIN ANDERES SCHACHPROGRAMM KAUFT, «< 

>» IST ES SELBST SCHULD! «< 


«i 
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Haben Sie sich auch schon darüber 
geärgert, daß beim Auflisten von 
Programmen, Ihr Drucker Zeile 
auf Zeile druckt, ohne Pause, ohne 
Rücksicht auf Blattwechsel, Falz- 
markierungen oder ähnliches? 

Das System führt die Informa- 
tion über Anzahl gedruckter Zei- 
len und maximale Anzahl von Zei- 
len pro Seite, wertet sie aber nicht 
automatisch aus. Sie können einen 
Blatt- oder Formularvorschub 
durch Ausgabe spezieller Steuer- 
zeichen erwirken (x'OC' o. x'OB'), 
Sie müßen diese jedoch selbst pro- 
grammieren. 

Was ist aber beim Auf listen von 
Programmen? Der Befehl LL1ST 
kümmert sich nicht um solche Sa- 
chen und warum etwas immer wie- 
der selbst machen, wenn es das 
System auch kann. 

Das nachfolgende kleine Basic- 
Programm erzeugt eine nur 17 By- 
te lange Maschinencode- Routine, 
mit der Ihr Drucker-Treiber so er- 
gänzt wird, daß er von Ihnen vor- 
gegebene Seitenbegrenzungen er- 
kennt und automatisch Blattwech- 
sel nach der vorgegebenen Anzahl 


von Zeilen durchführt. 

Diese Routine ist jedoch nicht 
nur beim LUST wirksam, sondern 
bei allen Druckerausgaben, die den 
normalen Treiber im ROM benut- 
zen, ob in Basic oder Maschinen- 
sprache. 

Das Programm wird mit C LO- 
AD geladen (bei Disk -Systemen 
natürlich mit LOAD) und an- 
schließend mit RUN gestartet. Es 
werden als Eingabeparameter zwei 
Werte verlangt, die Anzahl Zeilen 
pro Seite (wie lang ist Ihr Papier) 
und die Anzahl der Druckzeilen, 
nach denen jeweils ein Blattvor- 
schub erfolgen soll. Es sind Werte 
zwischen 1 und 255 zulässig, wo- 
bei natürlich die Anzahl Druckzei- 
len auf eine Seite passen sollte. 
(Wird geprüft!) Sind beide Werte 
gleich, hätten Sie sich die Mühe 
des Programmladens sparen kön- 
nen. 

ACHTUNG: 

Das Programm darf nur einmal 
nach jedem Einschalten bzw. 
Rücksetzen des Rechners gestartet 
werden, da es mit dem bestehen- 
den Druckertreiber verknüpft wird. 


Starten Sie es mehrfach, so gibt 
Ihr Drucker nichts mehr von sich, 
die Routine hat sich mit sich 
selbst verknüpft und schleift, und 
schleift, und ... 

Bei der Initialisierung wird der 
Zeilenzähler im Device -Control- 
Block (DCB) auf Null (bei Mod. 
III = 1) gesetzt. Sollen mehrere 
Ausdrucke nacheinander erfolgen, 
empfiehlt es sich, den Zeilenzäh- 
ler manuell zurückzusetzen. Es 
wäre reiner Zufall, wenn dieser am 
Ende einer Ausgabe richtig steht. 
Das Rücksetzen erfolgt im Basic 
mit der Anweisung PO KE 16425,0 
(bei Mod. III Poke 16425,1). 

Geben Sie Zeilen aus, die die 
Druckbreite Ihres Druckers über- 
schreiten, und macht dieser da- 
raufhin einen automatischen Vor- 
schub, so wird dieses vom Rechner 
nicht registriert, und es ergeben 
sich extra Zeilen pro Seite. 

Zum Programmaufbau einige An- 
merkungen : 

Nach der Vorstellung und dem 
Einlesen der beiden Werte (Zeilen 
120-230} wird in Zeile 250 die 
höchste verfügbare Speicheradres- 
se ermittelt, in Zeile 260 um die 
Länge der Routine vermindert 
(17 Byte) und zurückgeschrieben. 
Die Adressen 16561 (LSB) und 
16562 (MSB) enthalten die Adres- 
se, die Sie bei der Frage nach 
"MEMORY SIZE" oder "REA- 
DY" eingegeben haben. In Verbin- 
dung mit einem anschließenden 
CLEAR (Zeile 500) ist dies ein gu- 
tes Verfahren, in einem Programm 
MEMORY SIZE selbst zu setzen. 

Zeilen 300-330 übertragen die 
kleine Routine aus den DATA- 
Zeilen 340 und 350 in den ermit- 
telten Speicherbereich. In Assemb- 
ler dargestellt, sieht dies wie folgt 
aus: 


PUSH 

BC 

Zu druckendes Zeichen sichern 

LD 

A, (IX +4) 

Anzahl gedruckter Zeilen laden 

CP 

DRUCKZEILEN 

= Grenzwert? 

JR 

NZ,5 

Nein, zum Ende 

LD 

C,0CH 

Ja, Formularvorschub durchführen 

CALL 

ROM -Treiber 


POP 

BC 

Zu druckendes Zeichen wieder laden 

JP 

ROM -Treiber 
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Die Zeilen 3(CP), 6{CALL) und 8 
(JP) enthalten bei der Initialisie- 
rung Nullen, sie werden in den 
Zeilen 390-480 zusammen mit 
dem Device-Control -Block modi- 
fiziert, In Zeile 390 wird das Pa- 
piermaß (max. Anzahl Zeilen/Sei- 
te) in den DCB übertragen, in Zei- 
le 400 der Zeilenzähler auf den 
Ausgangswert gesetzt. Zeile 420 


überträgt die Anzahl der Druck- 
zeilen in die Ergänzungsroutine 
(C.P- Befehl), Zeilen 420-450 
übernehmen aus dem DCB die 
Adresse der ROM -Treiberroutine 
und tragen diese in den CALL- 
und JP-Befehl ein, 

Die Anfangsadresse der Ergän- 
zungsroutine wird in 470 und 480 
als neue Treiberadresse in den 


DCB eingetragen. 

In Zeile 370 werden die Vari- 
ablen für einen TRS80 Model III 
modifiziert (alles + 1 ). 

Nun viel Spaß beim Ein- bzw. 
Abtippen oder machen Sie es sich 
leichter, bestellen Sie die Cas- 
sette beim Programm -Service. 

G. W. Wolf 


10 ’ ************■***•*•*•*■*■*•**■#•■*•**•*•#■** 


20 

7 

* 

Drucker-Treiber- Ergaenzung 

* 

30 

7 

* 

fuer autorn. 

Blatt Vorschub 

* 

40 

7 

* 

von Gerhard 

W. Wolf 

* 

50 

7 

* 

6588 Birkenfeld (Nahe) 

* 

60 

7 

* 

Version 1, 

4. August 1983 

* 

70 

7 

* 

fuer TRS80 

Mod. I/III 

* 

80 

7 

* 

Video 

Genie I/II 

* 

90 

7 

* 

Colour 

Genie EG2000 

* 


100 ’ ******************************* 

110 ’ 

120 7 VORSTELLUNG UND PARAMETER EINLESEN 
130 CLS 

140 PRINT "DRUCKER-TREIBER ERGAENZUNG FUER" 

150 PRINT "AUTOMATISCHEN BLATTVORSCHUB“ 

160 PRINT "VON GERHARD W„ WOLF, VERSION 1, AUG.83" 

180 PRINT 

190 INPUT "ANZAHL ZEILEN / SEITE < PAPIERMASS ) " ? A 
200 IF A=0 OR A>255 PRINT "FALSCH. 1 " ; * GOTO 190 
210 INPUT "ANZAHL DRUCKZEILEN PRO SEITE" ;B 
220 IF B=0 OR B>A PRINT "FALSCH! " ? (GOTO 210 

230 IF B=A PRINT "DAZU BENOETIGEN SIE KEINE ERGAENZUNG ! “ s END 
240 ’ SPEICHERBEREICH ERMITTELN UND MEMORY-SIZE MODIFIZIEREN 
250 C = PEEK ( 16562 ) * 256 + PEEK( 16561) 

260 C = C - 17 

270 POKE 16562, INT(C/256) 

280 POKE 16561, C-INT<C/256) *256 

290 7 ROUTINE IM OBEREN SPEICHER AUFBAUEN 

300 C-C+ls IF 032767 THEN C=C-65536 

310 FOR I = C TO C+16 

320 READ D: POKE I,D 

330 NEXT I 

340 DATA 197,221,126,4,254,0,32,5,14,12 
350 DATA 205,0,0,193,195,0,0 

360 7 FUER TRS80-MODEL III PARAMETER MODIFIZIEREN 

370 D=0: IF PEEK<293>=73 THEN A=A+1 :B=B+1 tD=D+l 

380 7 PARAMETER IN DCB UND ROUTINE EINTRÄGEN 

390 POKE 16424, A: 7 MAX ZEILEN/SEITE 

400 POKE 16425, D: 7 ANZAHL DRUCKZEILEN 

410 POKE C+5 , B s 7 MAX ANZAHL DRUCKZEILEN 

420 POKE C+11,PEEK< 16422) : 7 ALTE TREIBERADR. 

430 POKE C+15, PEEK < 16422) 

440 POKE C+ 12, PEEK ( 16423) 

450 POKE C+16, PEEK ( 16423) 

460 IF C<0 THEN C=C+65536 
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470 POKE 16423, INT<C/256> : ’ ADR. ROUTINE IN DCB 
480 POKE 16422, C- INK C/256) *256 
490 ’ ENDEMELDUNG UND BYE BYE 
500 CLEAR 50 

510 PRINT " ERGAENZUNGSROUT I NE INITIALISIERT.“ 
520 FOR 1=1 TOI 000: NEXT I 
530 END 


DER 

Z80 


Innere Struktur 


Dieser Artikel soll Sie mit der in- 
neren Struktur des Z80 ein wenig 
vertraut machen. Bedingt durch 
die Platzbegrenzung können nur 
einige Details erklärt werden. 
Register: 

Über die Register läuft der ganze 
Datenverkehr ab. Wenn man den 
Inhalt einer Speicherstelle auf eine 
andere übertragen will, wird der 
Inhalt zuerst in ein Register und 
dann in die gewünschte Speicher- 
stelle geladen. Im Grunde genom- 
men sind die Register nichts ande- 
res als Speicherstellen. Die Z80 
CPU hat 8 Register (A, B, C, D, E, 
F, H, L). Hinzu kommt der Zweit- 
registersatz, der gleich benannt 
wird. Es kann immer nur einer der 
beiden Registersätze angesprochen 
werden. Außerdem hat die Z80 
CPU noch das IX und IY Register, 
die als Indexregister dienen, das 
SP Register, das als Stackpointer 
fungiert und das PC Register, wel- 
ches auf den augenblicklich ausge- 
führten Befehl gerichtet ist. 

Die Register, die nur 8 Bit Zah- 
len aufnehmen können, lassen sich 
zu 16 Bit Registern zusammen- 
schalten: AF, BC, DE, HL. 

Das A Register und das HL Re- 
gisterpaar besitzen gegenüber den 
anderen Registern einige Priori- 
täten. Sie können Speicherzellen 
direkt ansprechen. Das F Register 
dient als Flagregister. 

Flags: 

Logische Abfragen und Programm- 
verzweigungen können nur mit 


Hilfe der Flags geschehen. Die 
Flags sind : 

SIGN-Flag (S): 

Wenn ein Rechenergebnis negativ 
ist, enthält es eineEins, andernfalls 
eine Null. 

CARRY-Flag (C) : 

Enthält eine Eins wenn ein Über- 
trag bei einer Rechnung vorhan- 
den ist, ansonsten eine Null. 
ZERO-Flag (Z): 

Wenn ein Rechenergebnis Null ist, 
enthält es eine Eins, ansonsten ei- 
ne Null. 

PAR ITY/OVER FLOW : 

Enthält eine Eins, wenn das Re- 
chenergebnis zu groß für eine Spei- 
cherstelle (8 Bit) ist. Andernfalls 
zeigt es an, ob das Ergebnis gerade 
oder ungerade ist. 

Null = Ungerade / Eins = Gerade 
Flags werden hauptsächlich im 
Zusammenhang mit arithmetisch- 
en und logischen Befehlen ver- 
wendet. 

Arithmetische Befehle:. 

Die Z80 CPU weist die üblichen 
Befehle auf, wie decrementieren 
(DEC), incrementieren (INC), an- 
deren (AND), oderieren (OR), 
exclusiv oderieren (EXOR), sub- 
trahieren und addieren. Leider be- 
sitzt sie keine Befehle zur Multi- 
plikation oder Division. Neuere 
CPU's, wie die 16 Bit CPU des 
TRS-Color Computers, haben 
auch Befehle zur Multiplikation. 
Stack : 

Der Stack dient größtenteils zur 
Abspeicherung von Herkunfts- 


adressen bei Unterprogramman- 
sprüngen und zur Abspeicherung 
von Zahlen durch den PUSH -Be- 
fehl. Der Stack des Z80 arbeitet 
im Gegensatz zum LILO Prinzip 
(Last in, last out) nach dem LIFO 
(Last in, first out) Prinzip. D.h. 
die letzte Zahl, die durch den 
PUSH -Befehl im Stack abgespei- 
chert wurde, wird als erste wieder 
herausgenommen. Zum Wiederge- 
winn einer Zahl dient der POP-Be- 
fehl. Sowohl PUSH als auch POP 
sind 16 Bit Befehle, deshalb ist 
PUSH A nicht möglich, da A ein 
8 Bit Register ist. Das SP Register 
enthält immer die Adresse, auf die 
der Stackpointer gerade gerichtet 
ist. Die im Stack abgelegten Da- 
ten werden im freien RAM abge- 
speichert. Durch den PUSH Befehl 
wird von der Zahl im SP Register 
eine 2 subtrahiert, durch den POP 
Befehl addiert. Außerdem kann 
man mit Hilfe von PUSH und POP 
den Wert eines Registerpaares an 
ein anderes auf die einfachste Wei- 
se übergeben : 

PUSH HL POP BC 
(von HL nach BC). 

Such- und Verschiebe-Befehle: 
Eine weitere Tatsache, die die ho- 
he Entwicklung des Z80 zeigt, ist 
die, daß dieser Prozessor eine Viel- 
zahl von Such- und Verschiebe- 
Befehlen aufweist. So kann man 
mit einem einzigen Befehl sehr 
schnell den Inhalt eines Speicher- 
bereichs in einen anderen ’über- 
tragen, oder eine Reihenfolge von 
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Zahlen in einem vorgewählten Be- 
reich suchen. 

Vor- und Nachteile der Z 80 CPU 

Der Z 80 Prozessor hat einen sehr 
umfangreichen Befehlssatz, der 
verglichen mit anderen 8 Bit 
CPU's größer ist (z. B. 6502). Be- 


sonders herausragend sind die In- 
terrupt Möglichkeiten. Dieses muß 
aber mit einer etwas niedrigeren 
Verarbeitungsgeschwindigkeit im 
Gegensatz zur 6502 CPU erkauft 
werden. Um diesen Unterschied 
auszugleichen, wurde eine verbes- 


serte Version des Z 80, die Z 80 A 
CPU, entwickelt. Diese kann mit 
höheren Taktfrequenzen als die 
Z80 CPU getaktet werden und ist 
deshalb um einiges schneller. 

Axel Schneider 


Sicherheits- Kopien... 

Aber wie ? 

Liebe GENIE DATA Leserinnen und Leser! 

Wir haben lange darüber nachgedacht, ob wir diesen Artikel in der GENIE DATA veröffentlichen oder nicht. 
Das Thema 'Kopien ziehen' ist eine heikle Sache, und in diesem Artikel wird Ihnen gezeigt, wie man auch 
verschlüsselte Programme kopieren kann. 

Wir möchten Sie nun eindringlich bitten, gefertigte Kopien nur für Ihren eigenen Bedarf, als Sicherungs- 
Kopien zu verwenden. Bedenken Sie bitte, daß die verschiedenen Autoren lange an Ihren Programmen ge- 
arbeitet haben, und daß es nur recht und billig ist, wenn Sie nun in den Genuß des Verdienstes kommen. 
Geben Sie deshalb bitte keine Kopien aus der Hand, auch wenn es an gute Freunde sein sollte. 

Anm. der Red. 


Der Colour Genie EG 2000 ist ein 
wunderbarer Rechner und bereitet 
viel Freude im Hobby- und Spiel - 
bereich, sowohl beim Programmie- 
ren als auch in der Anwendung. 

Diese Anwendungs- (Spiel) 
Freude wird jedoch häufig da- 
durch verleidet, daß kommerziell 
beschaffte Programme oft nur mit 
Mühe, zig Ladeversuchen und 
Kopfverstellungen (für jedes Pro- 
gramm anders) gelesen werden 
können. 

Wie schön wäre es, hat man das 
Programm endlich einmal geladen, 
dieses auf dem eigenen Recorder 
in der gewohnten Weise aufzeich- 
nen zu können um nicht bei jeder 
Anwendung durch die gleichen 
Schwierigkeiten zu gehen. 

Leider macht hier, vor allem bei 
Maschinenprogrammen, das 
Schutzbedürfnis einzelner Herstel- 
ler und Vertreiber dem fast frus- 
trierten Anwender einen Strich 
durch die Rechnung. Immer ver- 
zwicktere Methoden werden 
ersonnen und angewendet, um 
ihre Programme zu schützen und 
ein Kopieren unmöglich zu ma- 
chen. 

Ich bin jedoch der Meinung, 


daß man sich beim Kauf von Pro- 
grammen auch das Recht auf pri- 
vate Sicherungskopien erworben 
hat. Dies ist bei Diskettensyste- 
men und in der 'großen' Datenver- 
arbeitung bereits allgemein üblich 
und auch zulässig, solange man da- 
mit nicht wieder auf den Markt 
geht und seine Kopien in klingen- 
de Münze umwandeln will. 

Dieser Artikel soll den Anfang 
einer unregelmäßigen Serie darstel- 
len, in der einzelne Schutzmecha- 
nismen vorgestellt und erläutert 
werden. Des weiteren werden An- 
leitungen gegeben, wie von diesen 
private Sicherungskopien angefer- 
tigt werden können. 

Als Hilfsprogramme wurden 
vom Autor die Programme CG- 
MON und SYSANA verwendet, 
die von R. Hübben, Verlag für Com- 
putertechnik, 5429 Marienfels ver- 
trieben werden und von denen 
selbstverständlich jederzeit private 
Kopien gefertigt werden können. 
Schutz durch Startautomatik 
Der einfachste Schutz eines Pro- 
grammes, wie er auch schon in der 
GENIE DATA beschrieben wurde, 
ist eine Startautomatik; d.h. Ma- 
schinenprogramme werden nach 


dem Laden sofort aqgestartet. 
Dies erfolgt durch hintör legen ei- 
ner Sprunganweisung zur Pro- 
grammstartad resse in Adresse 
41E2H durch einen eigenen Da- 
tenblock auf der Cassette. Diese 
Adresse wird vom SYSTEM -Kom- 
mando angesprungen, wenn das 
Programmende auf der Cassette er- 
kannt wird. 

Diesen Schutzmechanismus er- 
kennt man am besten dadurch, 
daß das Programm mit SYSANA 
zunächst auf Lage der einzelnen 
Datenblöcke untersucht wird. Ist 
dort ein Datenblock mit o.a. 
Adresse und Länge = 3 aufgeführt, 
handelt es sich um diesen Schutz. 
In diesem Fall können Anfangs- 
und Endadresse des Programms 
direkt aus dieser Auflistung ent- 
nommen werden ( Endadresse = 
höchste Datehblockadresse+ Län- 
ge- 1). Verlassen Sie sich jedoch 
nicht auf eine eventuell angegebe- 
ne Programmstartadresse, diese 
muß nicht stimmen. 

Laden Sie anschließend die 
CGMON -Version, die nicht mit 
diesem Programm kollidiert. Mit 
Hilfe des L- Kommandos laden Sie 
nun das zu kopierende Programm 
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von der Cassette. Meldet sich CG- 
MON nach dem Laden, so ermit- 
teln Sie die Programmstartadresse 
durch Auslesen der Adressen 41 E3 
und 41 E4 mit Hilfe des T- Kom- 
mandos. Nun haben Sie alle Anga- 
ben {Anfangs-, End- und Start- 
adresse), um von dem Programm 
mit dem D- Kommando Ihre eige- 
ne Programmkopie fertigen zu 
können. 

Die nächste Methode 

Es gibt allerdings noch verzwick- 
tere Methoden, ein Programm zu 
verschlüsseln. 

Zunächst wird ein Lader mit 
halber Aufzeichnungsdichte (600 
Baud) ab Adresse 41 E2 eingelesen 
und zusätzlich eine Speicher- Kill - 
Routine ab Adresse 41AC (wird 
angesprungen wenn beide Reset - 
Tasten betätigt werden). Ist der 
Lader korrekt geladen, wird er 
vom SYSTEM- Kommando auto- 
matisch angesprungen, schaltet auf 
normale Aufzeichnungsdichte um 
(X'69' in Adresse 4312) und lädt 
das eigentliche Programm. Dieses 
wird nach Beendigung des Lade- 
vorgangs über Registerpaar HL di- 
rekt gestartet. Ein weiterer Gag ist 
die Verschlüsselung des Pro- 
gramms auf der Cassette. Die La- 
deroutine enthält eine Entschlüs- 


sellungsroutine (XOR) und Tabel- 
le, mit der das Programm vor dem 
Übertrag in den Programmspei- 
cherbereich entschlüsselt wird. 

Doch auch durch solch schlim- 
me Sachen sollte man sich nicht 
entmutigen lassen. 

SYSANA ist keine Hilfe mehr, 
nach dem Start wird sofort Lese- 
fehler gemeldet, bedingt durch 
fehlendes Umschalten der Auf- 
zeichnungsdichte. 

Das Programm CGMONH steht 
Ihnen jedoch hilfreich zur Seite. 
Lesen Sie das Programm mit dem 
L- Kommando ein. Meldet sich 
CGMONH nach kurzer Zeit mit: 
41 AC- 4269 -0000 Name 
so hat sich diese Speichertechnik 
bereits verraten. 

Folgendes Verfahren verhilft 
Ihnen trotzdem zu eigenen Ko- 
pien: 

Mit Hilfe des K- Kommandos lö- 
schen Sie den Speicher von 4800 
bis B7FF mit x'00'. Mit dem M- 
Kommando setzen Sie Adresse 
4312 = x'69' (1200 Baud). 

Mit dem M- Kommando modi- 
fizieren Sie CGMONH so, daß 
nach Einlesen des Laders an des- 
sen Ende (vor Ansprung des ei- 
gentlichen Programms) ein Break- 
point gesetzt wird. 


Ab Adr. BE 16 

C3 

50 

BF 

Ab Adr. BF50 

21 

3E 

BD 


22 

33 

42 


3E 

CD 



32 

32 

42 


C3 

E2 

41 


Jetzt laden Sie das Programm er- 
neut mit dem L- Kommando. Die 
Ladezeit sollte jetzt wesentlich 
länger sein. Nach erfolgreichem 
Laden (kein Checksum Error) mel- 
det sich CGMONH mit Break in 
4232. 

Mit Hilfe des R- Kommandos 
können Sie nun aus dem HL- Re- 
gisterpaar die Programmstartadres- 
se ermitteln. Die Programman- 
fangs- und Endadresse muß man 
sich etwas mühsam mit dem T- 
Kommando ermitteln, indem der 
zuvor gelöschte Speicherbereich 
von 4800 bis B7FF auf Verän- 
derungen geprüft wird (die erste 
Adresse ungleich 00 ist die An- 
fangsadresse, die letzte ungleich 
00 ist die Endadresse). 

Mit den so gewonnenen Anga- 
ben sollte das Kopieren mit Hil- 
fe des D- Kommandos keine 
Schwierigkeit mehr bedeuten (sie- 
he 1.). 

Gerhard W. Wolf 



Eigentlich ist die Druckgeschwin- 
digkeit des DP 8480 mit 80 Zei- 
chen pro Sekunde schon recht an- 
genehm. Jedoch ist ein solcher 
Festwert etwas irreführend. Dieser 
Wert wird nämlich nur dann fak- 
tisch erreicht, wenn die zu druk- 
kenden Daten schon fix und fertig 
bereitliegen, etwa in Form von Va- 
riablen. Nun gibt es allerdings 
sehr viele Fälle, wo die Variab- 
len erst nach und nach gebildet 
werden und zwischendurch ausge- 
druckt werden müssen. Dies ist oft 


der Fall bei Grafikausdrucken, 
wo die einzelnen Grafik-Punkte 
oder -Zeichen erst in mehr oder 
weniger umfangreichen Einzelbe- 
rechnungen ermittelt werden, wo- 
durch nun werden solche Program- 
me so zeitintensiv? 

Hier spielt das Zusammenspiel' 
des Computers mit dem Drucker 
eine große Rolle. 

In der Zeit, in der der Compu- 
ter Berechnungen durchführt, 
kann nicht gedruckt werden. Ein 
noch gewichtigerer Umstand ist, 


daß in der Zeit, in der gedruckt 
wird, Der Computer zum Nichts- 
tun verdammt ist. 

Ein Gerät wartet somit auf das an- 
dere, wodurch eine Menge Zeit 
verloren geht. 

Wer einmal mein in der GENIE 
DATA Nr. 2 veröffentlichtes Pro- 
gramm Genie Grafik Ausdruck 
ausprobiert hat, kann dies bestä- 
tigen. Denn dadurch, das in die- 
sem Programm die Grafikzeichen 
in jeder Bildschirmzeile erst druck- 
gerecht umgesetzt werden müssen, 



HARDWARE 


17 


entstehen je nach Anzahl der Gra- 
fikzeichen längere Druckpausen, 
in denen der Rechner beschäf- 
tigt ist und nicht gedruckt werden 
kann. 

Durch dieses Handikap im Com- 
puter-Drucker-Dialog kann somit 
mancher Druckvorgang trotz 80 
Zeichen pro Sekunde sehr zeitauf- 
wendig sein. 

Der Drucker DP 8480 hat nun 
in seinem Befehlssatz zwei Anwei- 
sungen, die das Zusammenspiel 
zwischen Drucker und Computer 
zeitsparender gestalten. 

Das dem Drucker beigefügte 
Handbuch, das diesen Namen ei- 
gentlich garnicht verdient (siehe 
Druckertest des DP 8480 in 
GENIE DATA Nr.1), verliert nur 
wenige Sätze hierrüber. Darum 
möchte ich kurz das Prinzip schil- 
dern, nach dem diese Anweisun- 
gen arbeiten. 

Es sind die beiden Befehle: 

ESCX (1BH + 58H) 

ESC Y (1BH + 59H) 

In Basic lauten sie: 

LPRINT CHR$ (27)CHR$(88) 

LPRINT CHRS (27)CHR$(89) 

Sendet man dem Drucker ESC 
X, dann wird jede nachfolgende 
Druckanweisung nicht gedruckt, 
sondern in einem sich im Druk- 
ker befindlichen Buffer (Speicher) 
zwischengespeichert. Daraufhin 
wird die Kontrolle sofort wieder 
an den Computer zurückgegeben, 
der dann seine Arbeit fortsetzen 
kann, da die Übergabe von Daten 
an den Drucker wesentlich schnel- 
ler vor sich geht, als der eigent- 
liche Druckvorgang. 

Dadurch spart der Computer 
sehr an Zeit ein. 

Der Leser fragt sich jetzt na- 
türlich, wann die Daten denn ei- 
gentlich gedruckt werden. Hierzu 


dient der zweite Befehl ESC Y. 
Hierauf werden alle zwischenge- 
speicherten Druckdaten mit maxi- 
maler Geschwindigkeit ausge- 
druckt. 

Der Speicher, der maximal 
2048 Druckanweisungen speichern 
kann, gibt, wenn er voll ist, 
selbst den ESC Y- Befehl aus, 
sodaß nach Ausdruck der Spei- 
cherdaten der Buffer wieder frei 
für neue Daten ist. 

Soweit zur Funktionsweise der 
beiden Befehle. 

Eine kleine Schwierigkeit be- 
steht allerdings noch : 

Der Speicher muß nämlich erst 
noch in den Drucker eingebaut 
werden. 

Dieser Einbau ist im Hand- 
buch erwartungsgemäß nicht be- 
schrieben, aber sehr leicht durch- 
zuführen. . 

Zunächst wird der Drucker von 
allen Kabeln (Netzschnur und In- 
terfacezuleitung) getrennt. Dann 
werden die unteren vier Gehäu- 
seschrauben entfernt. Vorsicht, 
der Drucker sitzt nur sehr locker 
ohne Schrauben. Der Gehäusedek- 
kel muß nun sehr vorsichtig nach 
vorne gebracht werden, um die 
Kabel zu den Bedienungsknöpfen 
nicht zu belasten. Dann muß 
der gesamte Druckmachanismus 
durch lösen von ebenfalls vier 
Schrauben, die auf Gummiunter- 
legscheiben sitzen, angehoben wer- 
den. Unter diesem Mechanismus 
ist die Platine mit der gesamten 
Elektronik zu sehen. 

Wie schnell zu erkennen ist, ist 
auf der vorderen Platine ein 
Steckplatz für ein IC frei. Genau 
hier muß der erforderliche Spei- 
cherbaustein eingesetzt werden. 
Der Baustein ist, wie erwähnt, ein 
2 K Speicher vom T yp : 


TMM 2016 P. 

Beim Einsetzen in den leeren IC- 
Sockel mit der Bezeichnung IC16 
muß folgendes beachtet werden : 
Die Einkerbung an der vorderen 
IC-Seite muß in die gleiche Rich- 
tung weisen, wie die Nachbar IC's, 
also bei Draufsicht nach links (sie- 
he Bild). Das Einsetzen muß sehr 
vorsichtig unter leichtem Druck 
vorsichgehen, damit die empfind- 
lichen IC Beine nicht verbogen 
werden oder Abbrechen. 

Das war's dann schon. Gehäuse 
zusammenbauen und Drucker 
wieder anschließen. 

Geben Sie nun zum Test ein- 
mal folgendes ein : 

LPRINT CHR$(27)CHRS(88): 
LPRINT"ABCDEFGH" 

NEW LINE 

War der Einbau erfolgreich, darf 
der Drucker jetzt nichts ausgeben, 
da er nur Zwischenspeichern soll. 

Auf dem Bildschirm muß jetzt 
READY erscheinen, als Zeichen 
dafür, daß die Daten dem Druk- 
ker übergeben worden sind. Als 
nächstes geben Sie folgendes ein : 
LPRINT CHR$(27)CHR$(89) 

NEW LINE 

Jetzt muß der Drucker "ABCDEF 
GH" ausdrucken, nämlich genau 
das, was er eben gespeichert haben 
sollte. 

Das IC ist im Elektronikfach- 
handel für ein paar Mark zu be- 
kommen. 

Jetzt kann der Drucker die in 
Berechnungen bestimmten Druck- 
zeichen erst einmal sammeln und 
erst dann ausdrucken, wenn der 
Computer seine Berechnungen ab- 
geschlossen hat. Dann werden die 
Daten mit maximaler Geschwin- 
digkeit zu Papier gebracht. 

Catharina Stodden 
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Elektronik 2 

Reihen- und Parallelschaltung von Widerständen und Kondensatoren 


Vielleicht ging es Ihnen auch 
schon einmal so. Sie suchten ei- 
nen bestimmten Widerstand bzw. 
Kondensator, mußten beim Wüh- 
len in der Krabbelkiste aber fest- 
stellen: Ich habe alle möglichen 


Typen, nur nicht den, den ich 
jetzt benötige. 

Abhilfe schafft das Zusammen- 
schalten mehrerer verschiedener 
Werte. Wie das vor sich geht, wol- 
len wir im einzelnen betrachten. 


1. Reihenschaltung von 
Widerständen 

Unter einer Reihenschaltung ver- 
steht man das hintereinander 
Schalten von Bauteilen. 



Wir erkennen, daß der Strom (I) 
durch beide Widerstände fließt, al- 
so überall gleich ist. 

Wir können sagen: 

Strom = 

Strom des Widerstandes 1 = 
Strom des Widerstandes 2 

Nach dem Ohmschen Gesetz erge- 
ben sich die Spannungen : 

Ul “ R 1 * I und 
U2=R2*I sowie 


U = Rges* 1 

Der Physiker Kirchhoff ent- 
deckte, daß die Summe der Teil- 
spannungen in einer Reihenschal- 
tung gleich der anliegenden Ge- 
samtspannung ist. Das heißt : 
U-U1+U2 

Durch das Einsetzen der Grös- 
sen R und I erhalten wir: 

I * Rges= I * RI +1 * R2 

Da die Größe I in allen Teilen 


gleich groß ist, können wir die 
Gleichung verkürzen in : 

Rges“ RI +R2 

In einer Reihenschaltung von 
Widerständen ist der Gesamtwider- 
stand so groß, wie die Summe der 
Einzelwiderstände. 


2. Parallelschaltung von 
Widerständen 



Abonnieren - Profitieren 4 



Ein Satz, der wirklich stimmt ! 

Ein Abo der Fachzeitschrift GENIE DATA bringt Ihnen wirklich nur Vorteile. 
Zum Beispiel startet in der nächsten GENIE DATA unsere große Serie über Z 80 
Assembler -Programmierung. Ein GENIE DATA Abo stellt sicher, daß Sie keinen 
Teil versäumen. Oder Sie haben als Abonnent der GENIE DATA den weiteren Vor- 
teil, daß Sie unter der Rubrik Kleinanzeigen drei Textzeilen kostenlos erscheinen 
lassen können. 

Also: Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
liches GENIE DATA Abonnement! 
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Die Gesamtspannung (U) liegt an 
beiden Widerständen an. Der Ge- 
samtstrom (Iges) teilt sich in die 
Teilströme II und 12 auf. 

Daraus folgt : 

Gesamtstrom=Teiistrom 1 +Teilstrom2 
Iges - M + 12 

Wir setzen nach den Regeln des 
Ohmschen Gesetzes die Größen 
U und R ein und erhalten : 


u u_ + u_ 

Rges RI R2 

Wir dividieren die Gleichung durch 
U. Es ergibt sich: 

Rges RI R2 

Der Kehrwert des Gesamtwider- 
standes ist gleich der Summe 
der Kehrwerte der Einzelwider- 
stände. 


Für zwei Widerstände läßt sich 
diese Gleichung etwas handlicher 
machen. Durch Umstellen erhal- 
ten wir: 


Rges = 


RI * R2 
RI + R2 


3. Reihenschaltung von 
Kondensatoren 



Wenn wir an zwei in Reihe ge- 
schaltete Kondensatoren eine 

Spannung anlegen, so werden die- 
se eine bestimmte Ladung (Q) auf- 
nehmen. Diese Ladung berechnet 
sich aus der Kapazität und der an- 
liegenden Spannung. So gilt 

generell: 

Ladung^ Kapazität 'Spannung 

und in der Kurzform : 

Q = C‘U 

Die beiden inneren Kondensator- 
platten haben keine Berührungs- 
punkte zu den an der Spannung 


Die beiden Einzelladungen (Ql, 
Q2) addieren Sich zu der Gesamt- 
ladung (Qges). So gilt: 

Qges=Q1 +Q2 

Durch Einsetzen der Gleichung 
Q=C*U ergibt sich: 

Cges * U =C1 *U + C2*U 
Wir können die Gleichung wieder 
durch U dividieren und erhalten: 
Cges = C1 +C2 


anliegenden Platten. Durch die In- 
fluenzwirkung wird auf diesem 
Innenteil ein Ladungspaar entste- 
hen, und zwar so, daß auf allen 
Kondensatorplatten die gleiche 
Ladung entsteht. 

Wir können sagen : 

Gesamtladung = 

Ladung des Kondensators 1 = 
Ladung des Kondensators 2 
Qges=Q1 +Q2 

Außerdem gilt für die Reihenschal- 
tung: 

Uges = U1 +U2 



Nachdem wir jeden Fall einzeln 
abgehandelt haben, erkennen wir, 
daß die Berechnung der Reihen- 
schaltung von Widerständen sich 
genau so verhält, wie die Berech- 
nung der Parallelschaltung von 
Kondensatoren. Das Gleiche gilt 
für die Parallelschaltung von Wi- 
derständen und Reihenschaltung 
von Kondensatoren. Durch diese 


Durch Einsetzen ergibt sich : 

Qges Ql f Q2 

Cges CI C2 

Die Ladung ist überall gleich, die 
Gleichung vereinfacht sich in : 

c^T " cT + C2 
Auch hier können wir durch um- 
stellen eine angenehmere Form 

finden : , „ 

_ CI * C2 

Cges = 


CI 


C2 


3. Parallelschaltung von 
Kondensatoren 


Formelgleichheit wird ein Zusam- 
menfassen der Berechnungen in 
ein Programm stark vereinfacht. 

Ein Wort zum Programm. Die 
Speicherstelle 16537 wird bei der 
Inkey-Funktion abgefragt. Der 
Befehl Poke 16537,0 löscht vorei- 
lig eingegebene Zeichen. 

Bernd Kaiser 
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iö RE« ***** B. KAISER «AI '82 ***** 

20 CLEAR 100 
30 CLS 

40 PRINTilö.'UNRECHNUHB PARALLEL- IN REIHENSCHALTUNG' 

50 PRINTS76.'FUER NIDERSTAENDE UND KONDENSATOREN" 

GO PRINT:PRINT'HDECHTEN SIE NIDERSTAENDE ü) ODER KONDENSATOREN (2) BERECHNEN?' 

70 E$=INKEY$:IFE»O"l , ANDEiO'2"THEN70 

BO IFEJ=“1*THEN NK=”NIDERSTAND ":N2$='GESAHTNIDERSTAND = ' 

90 IFEt=“2*THEN NI $=“ KONDENSATOR" i N2$= "GESAMT KONDENSATOR = " 

ICK) PRINT:PRINT045O»*1. 'iNltülNPUTN 

110 PRINT876B > 'WIRD DER NAECHSTE ’JNlti" IN REIHE IR) ODER PARALLEL (p) GE-SCHALTET ? IR ODER P EINGEBEN)" 
120 POXE 16537.0 

130 Rt=INKEYÜ lFRt< >’R*ANDRt< >'P"THEN13Ö 
140 IFRi= M R-ANDE*='l "THEN60SUB210 
150 IFR1=’R'ANDE$=’2'THEN&)SÜB250 
160 IFR$=" P‘ ANDE*= ' 1 " THENG0SUB250 
170 IFR$='P'ANDEt= , 2*THENG05U8210 
180 PRlNTMAB.STRINBt (60,32) 

190 PR3NT§448,N2t;N 
200 G0T0110 

210 REH REIHEN- WIDERSTAND ; PARALLEL- KONDENSATOR 
220 PRINT'DER NAECHSTE “JNIÜ* - WERT"; : INPUTN1 
230 N=N+N1 
240 RETURN 

250 REN PARALLEL- WIDERSTAND ! REIHEN- KONDENSATOR 
260 PRINT'DER NAECHSTE "5N1$!' - NERT'mINPUTNI 
270 N=(N*N1)/(N+N1) 

280 RETURN 


Script Vf 


Eine. SdvielbAeh'ilf.t iüA 

da-6 ColouA Genie, und den STAR VP 510 


Dieses Programm zeigt eine der 
Möglichkeiten, wie man die Gra- 
fikfähigkeit eines Druckers nutzen 
kann. Hier mit einem Spezialzei- 
chensatz : Schreibschrift. 

Das Programm wurde auf einem 
EG 2000 Colour Genie mit 32K 
RAM und Basic-Compiler erstellt. 
Als Drucker wurde der STAR DP 
510 benutzt. 

Da das Programm für Compi- 
ler geschrieben wurde, sind bei 
Verwendung des normalen Basic 
Änderungen nötig, die wichtigsten 
sind im Listing enthalten. 

Im Programm ist eine einfache 
Zeicheneingaberoutine mit be- 
schränkter Editiermöglichkeit 
vorhanden (Löschen von Zeichen 
durch die 'Pfeil-nach-Links-Taste'). 
Andere Zeichen, als die im Zei- 
chensatz angegebenen, werden 
nicht angenommen. 


Im folgenden eine ausführliche 
Programmerklärung. 

Zeile 120 

'COLOUR 16' schaltet auf weiße 
Zeichenwiedergabe. 'GOSUB 990' 
springt auf die Poke-Routine zum 
definieren der Schreibschrift für 
die Bildschirmausgabe, durch die 
frei programmierbaren Grafikzei- 
chen des Colour Genie. 

Zeile 130 

Die Variablen AI, A2 und Bl stel- 
len die Anfangsadresse dar, ab de- 
nen der Compiler die Strings BS, 
A$ und H$ ablegt. Im normalen 
Basic stimmen diese Adressen 
nicht! Diese Zeile entfällt bei Ver- 
wendung des normalen Basic. 

Zeile 160 

Durch die Abfrage der Speicher- 
stelle -1984 wird der Zustand der 
BREAK-Taste abgefragt. Dies ist 
nur im Compiler notwendig, da 


dieser keine selbständige Abfrage 
während des Programmlaufs 
durchführt. 

Zeilen 180-240 

Den Funktions tasten Fl - F7 
werden die Umlaute wie folgt 
zugeordnet : 

Fl = ä, F2 = ü, F3 = ö, F4 = ß, 
F5 = Ä, F6 = Ü, F7 = ö. 

Zeilen 260 - 300 

Umkodierung der normalen 
ASCil-Zeichen auf die Schreib- 
schrift-Grafiksymbole und Test ob 
'Rücktaste' oder 'Return' (CHR$ 
(8) bzw. CHRS (13)). 

Zeile 310 

Zeilenende-Markierung durch Aus- 
gabe eines Ton's. Der DP 510 ar- 
beitet mit zwei verschiedenen Gra- 
fikauflösungen. In der hohen 
Auflösung darf die Anzahl der ein- 
gegebenen Zeichen 120, und in 
der niedrigen 60 nicht über- 
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schreiten. Bei Verwendung des 
normalen Basic sollte Z2 nur bis 
100 laufen. 

Zeilen 370 - 970 

Diese DATA-Anweisungen sind für 
die Generierung der Schreibschrift 
auf dem Bildschirm des Colour 
Genie. Für Benutzer anderer 
Rechner können Sie entfallen. 

Zeile 990 

'CHAR V schaltet den Zeichen- 
satz auf die programmierten Gra- 
fikzeichen um, die dann einge- 
lesen werden. Entfällt für ande- 
re Computer. 

Zeilen 1030- 1070 
Umkodierung der Zeichen für die 
Druckerausgabe. Bei Verwendung 
eines anderen Rechners entfällt 
Zeile 1030. Zeile 1050 und Zei- 
le 1060 muß wie folgt geändert 
werden : 

1050 IFA > 96THEN C=A-95 : 
GOTO 1070 
1 060 C = A-64 

Zeile 1080 

Umschaltung des Druckers in den 
Grafik-Mode. Es werden jeweils 8 
Datenbytes übertragen (8+256*0). 
Die Druckeransteuerung wurde, da 
der Basic-Interpreter des Colour 
Genie nicht exakt überträgt, über 
ein kleines Unterprogramm vor- 
genommen. 


Zeile 1090 

Entfällt bei Verwendung eines an- 
deren Computers. Die Anweisung 
'RESTORE' ist dann aber am An- 
fang der Zeile 1100 noch einzu- 
fügen. 

Zeile 1100 

Simulierung der Anweisung 'RES- 
TORE (Zeilennummer)'. 

Zeilen 1150-1200 
Unterprogramm zur Druckeran- 
steuerung. Der Drucker wird di- 
rekt über den Parallelport ange- 
steuert. Dieser Parallelport kann 
beim Colour Genie über die Ba- 
sic-Anweisung 'SOUND' gesteuert 
werden, da der eingebaute Sound- 
generator über zwei Register die- 
sen Port realisiert. Die Anwei- 
sung 'JOY1X' wird normalerweise 
zur Abfrage der Joystickstellung 
benutzt, kann aber auch zur Sta- 
tusabfrage des Druckers benutzt 
werden. Ist der Drucker Ready 
dann ergibt sich der Wert 1, an- 
sonsten 64. 

Zeilen 1290-2200 
'Zeichengenerator' für den Druk- 
ker. Es können beliebige andere 
Kodierungen vorgenommen wer- 
den. Man sollte aber darauf ach- 
ten, wie der jeweilige Drucker die 
Grafik darstellt. Beim STAR DP 
510 wird immer ein vertikales 


Byte gedruckt, d.h. die Buchsta- 
ben werden nicht, wie bei übli- 
chen Zeichengeneratoren, zeilen- 
weise kodiert, sondern spalten- 
weise. Näheres hierzu entnehme 
man aus den jeweiligen Hand- 
büchern. 

Zeilen 2220-2240 
Unterprogramme zur Simulierung 
der MIDS- Funktion, da im Co- 
lour-Compiler diese Funktion 
nicht implementiert ist. Bei Ver- 
wendung des normalen Basic set- 
zen Sie bitte die im Listing ange- 
gebene MIDS- Funktion ein, da 
sonst das Programm nicht läuft. 

Im Programm wurde absichtlich 
nicht auf schnelle Verarbeitung ge- 
achtet, da es nur zur Demonstra- 
tion dienen und leicht analysier- 
bar sein sollte. Durch die Compi- 
lierung kann man jedoch die Ge- 
schwindigkeitsverluste wieder aus- 
gleichen. Falls man die Umwand- 
lungs- und Druckroutinen jedoch 
in ein Textverarbeitungsprogramm 
einbindet, kann durchaus ein prak- 
tischer Wert entstehen, z. B. bei 
der Erstellung von Texten mit 
mathematischen, physikalischen 
oder chemischen Formeln, oder 
allgemein bei Erstellung und Aus- 
druck von Spezialzeichensätzen. 

Uwe Schmidt 


10 REM SCRIPT 
20 REM 
30 REM 

4-0 REM VON UWE SCHMIDT <C> JUNI 1983 

50 REM 

60 REM 

70 REM 

30 REM 

90 REM 

100 REM 

110 REM 

120 COLOUR 1 6 i CLEAR2000 i CLS i G0SUB990 

130 A2-30720« A1»30752iB1»30944iREM COMP ILER- ANFANGSADRESSEN FUER A*,B*. 
H* (ENTFALLEN BEI NORMALEN BASIC) 

140 B*» MM « GOTO 150 
150 PRINTCHR* < 14) a 

160 A*« I NKEY* i I FA*« " " THEN I FPEEK < - 1 9S4) »4THENSTQPELSE I FPEEK ( - 1 984 ) «4THEN 
STOFELSE 160 

170 REM TEST AUF UMLAUTE UND UMKODIERUNG DER ZEICHEN 

180 I F ASC < A* ) «92THENA*«CHR* ( 1 8 1 ) i G0T03 1 0 

190 I FASC < A* ) -93THENA*-CHR* ( 1 82 ) i G0TQ3 1 0 

200 I FASC ( A* ) «94THENA*«CHR* < 1 83 ) i G0T03 1 0 

210 I FASC ( A* ) «95THENA*«CHR* (184)« GQT03 1 0 
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220 I FASC ( A» > - 1 24THENA*»CHR* < 1 85 ) i G0T03 1 0 
230 I F ASC ( A* ) - 1 25THENA*»CHR* < 1 86 > j GÜT03 1 0 
240 I F ASC ( A* ) » 1 26THENA*«CHR* <187) a GOT03 i 0 
250 I F ASC ( A* ) =64THENA*»CHR* ( 1 88 > J GOT 03 i 0 

260 IFASC (A*> >»65THEN IFASC < A*> <»90THENA*«CHR* (ASC (A*) +90) j GQTQ280 
270 I FASC ( A* ) >«97THEN I FASC ( A* ) < * 1 22THENA*-CHR» < ASC ( A* ) +3 1 ) 

280 IFASC (A*) “13THEN1010 

290 I FASC ( At > »BTHENGQSUB2230 > B*-H* i PR I NTCHR* ( 8 > j } GOTO 1 60 
300 IFASC ( A*) <32THEN160ELSE IFASC <A*> >191THEN160 

310 IFLEN ( B* ) = 1 OOTHENPLA Y (1,4,4,15)» F0RZ2-0T05000s NEXTZ2» PLAY < 1 ,4,0,0) 
320 B*«B*+A* 

330 PRINTA*CHR*(14> j 
340 GOTO 150 
350 END 

360 REM DATA-ZEILEN FUER PROG. GRAFIKZEICHEN BEI EG-2000 

370 DATA048, 072, 132, 132,252, 133, 134,000 

380 DATA056, 068, 068, 120,068,069,058,000 

390 DATA056, 068, 064, 064, 192,071,056,000 

400 DATA120, 068, 068, 068, 068, 071, 120,000 

410 DATA056, 064, 064, 120, 064, 067,060,000 

420 DATA 120, 064, 064, 064, 120,071,064,000 

430 DATA060, 064, 064, 078, 066, 067,060, 000 

440 DATA228 , 036 , 036 , 044 , 052 ,101,166, 000 

450 DATA004, 004, 004, 004, 068, 071,056,000 

460 DATA 124. 004 , 004 , 004 , 068 ,071, 056 , 000 

470 DATA068, 072, 080, 096, 080, 073,070, 000 

480 DATA006 , 004 , 004 ,068,164,159, 096 , 000 

490 DATA099 , 085 . 073 , 073 , 073 , 065 , 065 , 000 

500 DATA098 , 082 , 082, 082 , 074 , 075 , 070 , 000 

5 1 0 DATA060 . 066 , 066 , 066 , 066 , 067 , 060 , 000 

520 DAT A 1 20 , 068 , 068 , 068 , 120,071,064,000 

530 DATA060 , 066 , 066 , 066 , 090 , 070 , 063 , 000 

540 DAT A 1 20 . 068 , 068 , 120,096,081,078,000 

550 DATA028, 034,032, 016, 012,003,034, 028 

560 DATA254, 016, 016, 016, 016, 017, 030, 000 

570 DATA068 , 068 , 068 , 068 , 068 , 068 ,127, 000 

580 DATA066 , 066 , 066 ,066,066, 039 , 024 , 000 

590 DATA 130, 130, 146, 146, 146, 147, 124,000 

600 DATA066, 066, 036, 024, 024,039,066,000 

610 DATA066. 066, 066, 036, 024, 031 , 024,000 

620 DAT A 1 26 , 066 , 004 , 008 ,016, 033 , 126,000 

630 DAT AOOO , 000 , 000 , 000 , 000 , 000 , 000 , 000 

640 DAT AOOO , 000 , 056 ,068,068,071, 056 , 000 . 

650 DATA096, 144, 136, 136,072, 177,014,000 
660 DATAOOO, 000, 056, 068, 064, 193,062,000 
670 DAT A002 , 002 , 002 , 062 , 066 , 1 95 , 060 , 000 
680 DATAOOO, 000, 056, 068, 120,065,062,000 
690 DATA112, 136, 136,080,224,063,032,032 
700 DATAOOO, 000, 028, 034,034,223, 002, 060 
710 DATA064, 064, 064, 120,068, 197,070,000 
720 DATAO 16, 000, 000, 016, 016, 243, 028, 000 
730 DATAOOO , 000 , 028 , 002 , 002 , 1 95 , 034 , 028 
740 DATA064, 064,072. 080 , 096, 209, 078,000 
750 DATA012, 018,018,018, 124, 144,031,000 
760 DATAOOO ,000,000,127,201,073,073, 000 
770 DATAOOO , 000 , 000 , 060 ,100,167,036, 000 
780 DATAOOO, 000, 056, 069, 068, 196,056,000 
790 DATAOOO, 000, 056, 068, 068, 251 , 064, 064 
800 DATAOOO, 000, 028, 034, 226, 031 , 002,002 
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910 DATAOOO, 000, 000,029,018, 241,016,000 
920 DATA000, 000, 060, 066, 066, 193,012,000 
930 DAT AOOO ,016,016, 124,016,017,030,000 
940 DATAOOO, 000, 000, 072, 072, 201, 126,000 
950 DATAOOO. 000,000, 069,070,041,016, 000 
960 DATAOOO , 000 , 000 , 073 , 073 ,201,127, 000 
970 DATAOOO , 000 , 000 , 036 ,024,153, 036 , 000 
900 DATAOOO, 000, 018, 018, 030, 130,066,060 
890 DATAOOO, 000, 000, 062, 068, 137, 063, 000 
900 DATAOOO .132, 000 , 056 , 068 ,197,126, 000 
910 DATAOOO, 036,000, 036, 036,231 , 060, 000 
920 DATAOOO, 068, 000, 056,069, 196, 056, 000 
930 DATA056, 068, 068, 088, 072, 071 , 120,064 
940 DATA153. 036, 066, 066, 126,067,066,000 
950 DATA036 , 000 , 068 , 068 , 068 ,071,124, 000 
960 DATA132. 120, 132, 132, 132, 135, 120, 000 
970 DATA012, 018, 008,020, 020, 008, 036, 024 
900 REM ZEICHENSATZ FUER EG-2000 WIRD GENERIERT 

990 CHAR1 1 RESTOREa F0RA»S<HF400T0S<HF5E7 i READB« POKEA, Bi NEXTAa RETURN 
1000 REM ZEICHEN FUER DRUCKROUTINE DEKODIEREN UND DRUCKEN 
1010 PRINTCHR* ( 15) j a PRINTi F0RI-1T0LEN (B*> 

1 020 G0SUB2220 : A-ASC ( Af > 

1030 IFA-188THENA-64 

1040 I FA >3 1 THEN I FA< 65THENC-A-3 1 +59 a GOTO 1 070 
1 050 I FA > 1 54THENC» A- 1 55+27 1 GOTO 1 070 
1060 C-A-127 
1070 D-C-i 

1080 LPRINTCHR*(27> "L"CHR*<8) « a Z 1-0« G0SUB1 150 
1 090 RESTORE « F0RF-0T0487 s READL « NEXTF 
1100 F0RX-lTQD#8i READK« NEXTX 
1110 F0RX-0T07« READK« Zl«KaGOSUBl 150: NEXTX 
1120 NEXTI 

1130 PRINT« LPR I NT i B*-" " i GOTO 1 50 

1140 REM UNTERPROGRAMM FUER DIE DRUCKERANSTEUERUNG 

1150 IFJ0Y1X>1 THEN 1 1 50 : REM DRUCKER-STATUS ABFRAGEN 

1160 S0UND7, 255« REM PORTS AUF AUSGABE SCHALTEN 

1170 SOUND 1 4 , Z 1 « REM INHALT VON ZI ZUM DRUCKER UEBERTRAGEN 

1180 SOUND 1 5 , 254 « REM STROBE LOW 

1190 SOUND 1 5 , 255 i REM STROBE HIGH 

1200 RETURN 

1210 REM DER DRUCKER WIRD UEBER DIE BEIDEN PARALLEL- I /O-REGI STER DES SO 
UNDGENERATORS ANGESTEUERT (REGISTER 14/15) 

1220 REM 
1230 REM 
1240 REM 

1250 REM DATA-ZE1LEN FUER DIE DRUCKROUTINE (VERTIKAL KODIERT, 


• 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 


REM NORMALE ZEICHENGENERATOREN KODIEREN HORIZONTAL, 

REM 

REM 

DATA 62,72, 136, 136, 72, 62,2, 4«REM A 
DATA 0, 124, 146, 146, 146, 108,2, 4«REM B 
DATA 8, 124, 130, 130, 130, 68,4, 4«REM C 
DATA 0,254, 130, 130, 130, 124, 4, 4: REM D 
DATA 0, 124, 146, 146, 146, 2, 4, 4« REM E 
DATA 0,254, 136, 136, 136, 4,4, 4«REM F 
DATA 0, 124, 130, 130, 146, 146,28,4«REM G 
DATA 130, 132,254,8, 16, 254,2, 2«REM H 
DATA 0, 12,2,2,2,252,4,4iREM I 
DATA 0, 140, 130, 130, 130, 252,4, 4«REM 3 
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1390 DATA 
1400 DATA 
1410 DATA 
1420 DATA 
1430 DATA 
1440 DATA 
1450 DATA 
1460 DATA 
1470 DATA 
1480 DATA 
1490 DATA 
1500 DATA 
1510 DATA 
1520 DATA 
1530 DATA 
1540 DATA 
1550 DATA 
1560 DATA 
1570 DATA 
1580 DATA 
1590 DATA 
1600 DATA 
1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA* 
1780 DATA 
1790 DATA 
1900 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 DATA 
1850 DATA 
1860 DATA 
1870 DATA 
1880 DATA 
1890 DATA 
1900 DATA 
1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
1980 DATA 


0,254, 16,40,68, 130,2, 2iREM K 
12, 18, 10,4,4,252, 132, 4iREM L 
0,254, 120,64,56,64, 12B„254iREM M 
0,254, 128, 112, 12, 2,254, 4 jREM N 
0, 124, 130, 130, 130, 130, 124,4:REM 0 
0, 254, 136, 136, 136, 116,4, 4:REM P 
0, 124, 130, 138, 138, 134, 126,2:REM Q 
0,254, 152, 148, 146, 98,2, 4jREM R 
0,0,98, 145, 137, 137, 70, 4:REM S 
128, 128, 128,254, 130, 130, 130,4:REM T 
0, 254, 2,2,2, 254, 2,2s REM U 
0,248,4,2,2,4, 252 , 4 1 REM V 
252, 2, 2, 62, 2, 2, 252, 4» REM W 
0, 194,36,24,24,36, 198, 4:REM X 
0,224, 16, 14, 14, 20, 228, 4:REM Y 
0, 194, 134,138,146,162, 194, 4j REM Z 
0,28,34,34, 34, 28, 4,4 j REM a 
116, 136, 132, 68, 58, 2,2, 4tREM b 
4,28,34,34,34, 18,2, 4JREM c 
4, 12, 18, 18, 18, 18,252,4iREM d 
0,28,42,42,42, 18,2, 4:REM e 
104, 152, 143,20, 100, 4,4, 4:REM f 
4,4,25,37, 37 ,37,30,4s REM g 
4,254, 16, 16, 16, 14,2, 4tREM h 
4.4,4, 158, 2,2,4,4s REM i 
4,4,2,33,33, 161, 30. 4iREM j 
4, 254, 8,20,34,2,2,4s REM k 

4.8, B, 126, 138, 138, U4,2jREM 1 
8,30, 16, 16,30, 16, 16,30sREM m 
4,8,30, 16, 16, 30,4, 4»REM n 
4,28,34,34,34,60,32, 16: REM o 
4,31,36,36,36,24,4,4: REM p 

8, 8, 24, 36, 36, 36, 31,4t REM q 
4,4.4,30, 16, 16,8,4: REM r 
4, 28, 32, 32, 34, 34, 28, 4: REM s 
0, 16, 16, 126, 18, 18,2,4:REM t 
4 , 30 ,2,2,30,2,2,4: REM u 
0, 24, 4 , 2, 4, 24 , 8 , 4: REM v 
4 , 30,2, 2, 30, 2,2, 30 i REM w 
4,2, 18, 12, 12, 18, 2, 4 i REM x 
4,2, 1,57,9,9,62,0t REM y 

4.8, 18, 18,22,26, 18, 61 REM z 
128,20,34,34,34, 156, 4, 4i REM 
4,4,94,2,2,94,4,4t REM ü 
4.76, 18, 18, 18,92, 16, 8:REM ö 

0, 127, 130, 146, 154, 100,4, 4tREM ß 
128,62,72,136,136,72,62, 132:REM ft 
0.62, 130,2,2, 190,4, 4:REM ü 
188,66,66,66,66, 188,4, 4tREM ö 
0,0, 0,0, 0,0, 0,0: REM " " 

0,0,0, 242, 0,0,0,0tREM ! 

0,0, 224, 0,224, 0,0,0t REM " 

0, 40, 254, 40, 254, 40,0,0s REM # 

0,36, 84, 254, 84,72,0,0 t REM * 

0, 196,200, 16, 38, 70, 0,0t REM 7. 

0, 12, 114, 154, 100, 10,0,0tREM %>. 
0.0,32,64,0, 128,0, OtREM ’ 

0,0,56,68, 130, 0,0, OtREM ( 

0,0, 130,68,56, ,0,0, OtREM ) 

0,40, 16, 124, 16, 40,0, OtREM * 
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1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2000 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 END 


0, 16, 16, 124, 16, 16,0,0:REM + 
0,0,2,4,8,0,0,01 REM , 

0, 16, 16, 16, 16, 16,0, OiREM - 
0, 0, 6 , 6 , 0, 0,0, Ol REM . 

0, 4,8, 16, ,32, 64,0, Oi REM / 

0, 124, 130, 130, 130, 124,0,OlREM 0 
0,0,66, 254 , 2 , 0 , 0 , 0 i REM 1 
0,66, 134, 138, 146, 98,0, OiREM 2 
0, 132, 130, 162,210, 140,0, Oi REM 3 
0,24,40,72, 254 , 8 . 0 , 0 i REM 4 
0,228, 162, 162, 162, 156,0, OiREM 5 
0,60,82, 146, 146, 12,0, OiREM 6 
0. 128, 142, 144, 160, 192,0, OiREM 7 
0, 108, 146, 146, 146, 108,0, OiREM 8 
0,96, 146, 146, 148, 120,0, OiREM 9 
0,0, 108, 108,0, 0,0, OiREM i 
0,0, 2, 44, 0,0,0, OiREM 5 
0, 16,40,68, 130, 0,0, OiREM < 

0,40, 40, 40, 40, 40,0, OiREM * 

0,0, 130,68,40, 16,0, OiREM > 

0,64, 128, 142, 144, 96,0, OiREM ? 
0,0,2,89, 165, 154, 68, OiREM § 


2220 A$“" " 1 PQKEA2, PEEK < A1+ < 1-1 ) ) I P0KEA2+1 , Oi RETURN 1 REM UP. FUER FUNKT 10 
N r A**=MID 1) " BEI NORMALEN BASIC MID*-FUNKTION BENUTZEN !! 


2230 L»LEN(B*) 1 Xl»L-2 

2240 FORI 1-0T0X1 1 P0KEB1 + 1 1 , PEEK < Al + 1 1 > 1 NEXTI 1 1 P0KEB1+I 1 , Oi RETURN 

2250 REM UP. FUER FUNKTION ' Ht»MID* <B*. 1 , LEN <B»> -1 ) ’ BEI NORMALEN BAS 
IC MID*-FU NKTION BENUTZEN !! 


2260 END 


Das Programm erzeugt -folgenden Auedrucki 


O-Uo iot ein : 

Nit diesem owkJ Sie «v der ScH*eiftocKri$-t 0 uH- de« fL^dochi^m JH*eo CS’tthw'-Genieo -m fi^-m-sen 

diese Schnitt cmeh ou/viu-drucLe« / octe-f« Sie eine« D-ructe* Reeitae«. 
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SO FTWAR E 



inirechner 




Genie t, U und Hl 


Für Anfänger im Programmieren 
des Z 80 Assembler ist es oft 
schwer, sich durch die Vielzahl 
von Befehlen und Registern hin- 
durch zu finden. 

Das vorliegende Programm kann 
man als eine Einführung in eine 
Assemblersprache verstehen, aber 
es soll auch zum Weiterexperi- 
mentieren anregen. Dieser Mini- 


rechner ist ein kleiner Assembler 
mit zwei Registern : 

PC (Programmzähler) 

ACC (Akkumulator) 

Die zur Verfügung stehenden 
Befehle werden vom Programm 
vorgestellt. Das Befehlsformat 
sieht wie folgt aus: 

(Label:) Opcode (Adresse (i)) 
Die Befehlsteile in den Rund- 


klammern können wegfallen. 

Ein Beispiel : 

Start: bun 1 i 

Der Minirechner springt zu der 
Programmzeile, deren Nummer in 
der Programmzeile Nummer 1 
steht. Mit 'bun Start' kann man 
den Minirechner zu dieser Bei- 
spielzeileverzweigen lassen. 

Ein Beispielprogramm : 


Programmzei 1 e 

0 ; 

Be-fehl 
argl: 45 

Programmzei 1 e 

1 

arg2: 60 

Programmzei 1 e 

2 ; 

start: bsa ggt 

Programmzei le 

3 : 

out result 

Programmzei 1 e 

4 : 

hl t 

Programmzei 1 e 

5 : 

ggt: lda argl 

Programmzei 1 e 

6 : 

sub arg2 

Programmzei 1 e 

7 : 

beq end 

Programmzei 1 e 

8 s 

bgr störe 

Programmzei 1 e 

9 : 

lda arg2 

Programmzei 1 e 

IO 

sub argl 

Programmzei 1 e 

11 

sta arg2 

Programmzei 1 e 

12 

bun ggt 

Programmzei 1 e 

13 

störe: sta argl 

Programmzei le 

14 

bun ggt 

Programmzei le 

15 

end: lda argl 

Programmzei le 

16 

sta result 

Programmzei le 

17 

ret 

Programmzei 1 e 

18 

result: 0 

Programmzei 1 e 

19 

bgn start 

Programmzei le 

2 : 

srt 


Dieses Programm gibt den größten 
gemeinsamen Teiler der beiden po- 
sitiven Zahlen bei argl und arg2 
aus. Das Programm beginnt bei 
Zeile 2. Deshalb wird in Zeile 
19 der Programmzähler auf das 
Label 'start' gesetzt. Man hätte 
genausogut 'bgn 2' eingeben kön- 
nen. Der Minirechner steht nun 
auf Zeile 2 im Programm und 
wird mit 'srt' gestartet. Errech- 
net wird der GGT von 45 und 
60. Nachdem das Ergebnis aus- 
gegeben ist, erscheint die Mel- 
dung: 

Programmzeile 4: ... 

Nun kann man andere Zahlen 


eingeben. 

Programmzeile 4: bgn 0 
Programmzeile 0: 300 
Programmzeile 1 : 256 
Programmzeile 2 : srt 
('bgn 2' ist überflüssig) 

Die Befehle im Direktmodus 
werden nicht im Programm abge- 
speichert. Man überschreibt mit 
ihnen also keine Programmzeile! 

Als Erweiterung bietet sich z. 
B. der Befehl 'new' an, der ein 
vorhandenes Programm löscht. Mit 
der Basiczeile: 

355 If OP$= "new" THEN PC = 

0 : SC = 0 : ACC = 0 : RC = 0 
: GOTO 150 


ist man schon fertig. 

Wenn Sie keine Diskettensta- 
tion angeschlossen haben, brau- 
chen Sie trotzdem nicht zu ver- 
zagen : 

Die Programmzeilen 340 - 350 
und 1030 - 1340 werden gestri- 
chen. In Zeile 170 wird 'LINE 
INPUT' durch 'INPUT' ersetzt. 
In den Zeilen 800 und 860 wird 
der Befehl 'CMD "F=POPR" ' er- 
satzlos gestrichen. Schließlich wer- 
den die Kleinbuchstaben einfach 
durch Großbuchstaben ersetzt. 


Bernd Plumhoff 


10 REM Minirechner 
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20 GOSÜB 900 
30 CLEAR 4000 
40 DEFINT A-Z 

50 MB=200: REM Maximale Programml aenge 
60 ML=70: REM Maximale Anzahl der Labels 

70 MR=200: REM Maximale Anzahl von Unterprogrammaufrufen 
80 DIM F« ( MB ) , ST« (ML) , ST (ML), RS (MR) 

90 REM Programmzaehler/Akkuraul ator /Opcode/ 

Symbol tabel 1 enzei ger /Returnstackzei ger 
100 PC=0 
110 ACC=0 
120 DP$="" 

130 SC=0 
140 RC=0 
15« E«=" “ 

160 PRINT "Programmzei 1 e" , PC; " : 

170 LINE INPUT E« 

180 IF E«='*" THEN PRINT “Fehlerhafte Ei ngabe * *' : GOTO 150 
190 REM Blanks eliminieren 
200 1=0 
210 1 = 1+1 

220 IF MID«(E«, I, 1)=" " THEN 

E«=LEFT« (E«, I-1>+RIGHT« (E«, LEN(E$>-I>: 1=1-1 
230 IF I<LEN(E«) THEN 210 
240 REM Label eingegeben? 

250 1=0 
260 1=1+1 

270 IF MID«(E«, I, 1)=":" THEN D$=LEFT$(E«, 1-1): 

BOSUB 840: ST«(SC)=D«: ST(SC)=PCi SC=SC+1: 

E«=RIGHT«(E«, LEN <E« > — I ) : GOTO 290 
280 IF I<LEN (E«) THEN 260 
290 OP«=LEFT«(E«, 3) 

300 IF OP«="bgn " THEN E«=RIGHT« (E«, LEN (El») -3): 

GOSUB 720: PC=AD: GOTO 150 
310 IF OP«="srt" THEN CLS: GOTO 400 

320 IF OP«="lst" THEN FOR 1=0 TO PC-1: PRINT F$ ( I ) : 

NEXT I: GOTO 150 

330 IF OP$="hlp" THEN GOSUB 900: GOTO 150 
340 IF OP*="sav" THEN GOSUB 104O: GOTO 150 
350 IF 0P«= " 1 od " THEN GOSUB 1210: GOTO 150 
360 F« (PC) =E« 

370 PC=PC+1 
380 GOTO 150 
390 REM Interpreter 
4O0 D«= INKEY* 

410 IF D«=“c " THEN 150 
420 E$=F«<PC> 

430 PRINT @ 0, "pc :";PCj 

440 PRINT @ 64, "acc :";ACCJ 

450 PRINT @ 128, STRING« (20, ” "); 

460 PRINT @ 128, " (pc) : '';F«(PC) 5 
470 PRINT @ 192, ""5 
480 OP«=LEFT«(E«, 3) 

490 E«=RIGHT$ (E«, LEN(E«)-3) 

500 IF QP$="i ac " THEN ACC=ACC+1: GOTO 690 
510 IF OP«="dac " THEN ACC=ACC-1: GOTO 690 
520 IF OP«="bun" THEN GOSUB 720: PC=AD: GOTO 400 
530 IF OP«="cla" THEN ACC=0: GOTO 690 

540 IF 0P«="1 da" THEN GOSUB 720: ACC=VAL (F« (AD) > : GOTO 690 
550 IF 0P«= " sta" THEN GOSUB 72 Qi F« ( AD) =STR* ( ACC) : GOTO 690 
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56« IF OPf ="add " THEN GOSUB 720s ACC=ACC+VAL (Ff ( AD) ) ; 60T0 690 

570 IF OPf= “sub “ THEN BOSUB 720: ACC=ACC— VAL (Ff (AB) ) : GOTO 690 

580 IF OP$= ,, mul" THEN GOSUB 720: ACC=ACC*VAL (Ff ( AD) > : GOTO 690 

590 IF OPf="div" THEN GOSUB 720: IF VAL (Ft ( AD) ) =0 THEN 

PRINT "Division durch Null in Zeile“ 5 PC? " ! GOTO 150 
ELSE ACC=ACC/VAL(Ff(AD> ) : GOTO 690 
600 IF OPf="beq" THEN IF AC-C=0 THEN GOSUB 720: PC=AD: GOTO 400 
ELSE 690 

610 IF OPf="bsa” THEN GOSUB 720: RS(RC)=PC+1: RC=RC+1: 

PC=AD: GOTO 400 

620 IF OP*="ret" THEN RC=RC-1: PC=RS(RC>: GOTO 400 
630 IF OP*— "out " THEN GOSUB 72«: PRINT VAL (Ff (AD) >: GOTO 690 
640 JF QPt="bgr" THEN IF ACO0 THEN GOSUB 720: PC=AD: GOTO 400 
ELSE 690 

650 IF OP*="ble" THEN IF ACC<0 THEN BOSUB 720: PC=AD: GOTO 400 
ELSE 690 

660 IF OPt='‘hl t ” THEN PRINT: PRINT: GOTO 150 

670 PRINT "Syntax Feh ler in Zei le" J PC? " : "; Ff (PC) j "????" 

680 GOTO 150 
690 PC=PC+1 
700 GOTO 400 

710 REM Unterprogramm zur Berechnung der Adresse 
720 F=0 

730 IF RIGHT* (Ef, l)="i ,, THEN F=-l: Ef=LEFTf(Ef, LEN (Et) -1) 

740 IF ASC (LEFTt (Et, 1 ) ) >64 THEN 780 
750 AD=VAL (Ef > 

760 IF F THEN AD=VAL (Ft ( AD) ) 

770 RETURN 
780 I=-l 
790 1=1+1 

800 IF I=SC THEN GMD"F=POPR"i PRINT "Synt^fehler in Zeile"; 
PC; " i 

Das Label '"JE*;"’ ist Undefiniert.'": GOTO 150 
810 IF STf ( I ) =Ef THEN AD=ST ( I ) : GOTO 760 
820 GOTO 790 

830 REM Ist das Label schon in der Symboltabelle? 

840 IF SC=0 THEN 880 
850 FOR J=0 TO SC-1 

860 IF Df=STf(J) THEN CMD"F=POPR" : PRINT "Das Label ’ " ; 

Df;"' war schon in Zei 1 e“ j ST ( J > ; "def i ni ert ! " : GOTO 150 
870 NEXT J 
880 RETURN 

890 REM Liste der Befehle ausgeben 
900 CLS 

910 PRINT "Minirechner 


920 

930 


940 


Direkter Modus: 
bgn <adr> 
srt 
Ist 

PRINT "hip 
PRINT "sav 
auf Diskette 
lod 

PRINT " 

Pr ogr ammodus : 


pc := <adr> 

Programmstart 

Listen des Programmes" 

Liste dieser Befehle auf rufen“ 
Speichern des Programmes 

bis pc — 1 

Laden eines Programmes von Diskette" 


lda < adr > 
sta <adr> 
add <adr> 


acc : = <adr> 

<adr> := (acc) 
acc := acc + <adr>" 
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950 D*= INKEY* 

960 IF D*=" " THEN 950 

970 PRINT "sub <adr> acc s= acc - <adr> 

cla acc := 0" 


980 PRINT "out <adr> Print <adr>" 

990 PRlNT"bsa <adr> Sprung zur Subroutine ab <adr> 

ret Return von Subroutine 

i ac acc := acc + 1 


bun <adr> 
beq <adr> 
hlt 

1000 PRINT"bge 
ble <adr> 
mul < adr > 
div <adr> 
dac 


Sprung zu <adr> 

Springe nach <adr>, wenn acc — 0 
Programmende" 

<adr> Springe nach <adr>, wenn acc > 0 

Springe nach <adr>, wenn acc<0 
acc : = acc * <adr> 

acc := acc / <adr> (ganzzahlige Division?) 
acc ;= acc — 1" ■* 


1010 PRINT 
1020 RETURN 

1030 REM Ausgabe auf Diskette 
1040 IF PC<1 THEN 1190 
1050 OPEN "0", 1, "PROGRAMM/DAT" 
1060 PRINT #1, PC; 

1070 FOR 1=0 TO PC— 1 
1080 PRINT #1 , f$<i>; , V'; 

1090 NEXT I 
1100 PRINT #1, sc; 

UIO FOR I=0 TO SC-1 
1120 PRINT #1, ST(I); 

1130 NEXT I 

1140 PRINT #1, ST*<0>; 

U50 FOR 1 = 1 TO SC-1 
1160 PRINT #1 , " , " J ST* ( I ) ; 

1170 NEXT I 
1180 CLOSE 


& i* 


1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1,270 

1280 

1290 

13O0 

1310 

1320 

1330 

1340 


RETURN 

REM Eingabe von Diskette 
OPEN " I " , 1 , " PROSRAMM/ DAT " 
INPUT #1, PC 
FOR 1=0 TO PC--1 
INPUT #1, F* ( I > 

NEXT I 

INPUT #1, SC 
FOR 1=0 TO SC-1 
INPUT #1, ST ( I > 

NEXT I 

FOR 1=0 TO SC-1 
INPUT #1, ST* ( I ) 

NEXT I 

CLOSE 

RETURN 


Artikel auf Diskette 


Mit diesem Programm wollen wir 
allen Computerfreaks eine neue 
Möglichkeit geben, wie sie uns 
ihre Artikel einsenden können. 
Nämlich nicht mehr auf Papier 
sondern auf Diskette. 

Sollten Sie von dieser Möglich- 
keit Gebrauch machen, und uns ei- 
ne Textdiskette einsenden, spezi- 
fizieren Sie bitte ganz genau Ihr 
Aufzeichnungsformat. Z. B. 80 
Spuren, doppelte Schreibdichte, 
einseitig. 

Wenn Sie das nicht wollen, so 
können Sie das Programm immer- 
hin noch als eine einfache Text- 
verarbeitung verwenden. 

Wie das Programm funktioniert, 
wollen wir jetzt im Einzelnen ein- 


mal kurz durchgehen. 

1. Text eingeben 

In dieser Betriebsart können Sie 
Text eingeben. Je nach Computer 
mit Groß-, Kleinschrift und Um- 
lauten (Genie III). Der Text wird 
automatisch mit einer Zeilennum- 
mer versehen, die mit Abstand 3 
immer fortläuft. Der Abstand 3 
wurde gewählt, um Ihnen die Mög- 
lichkeit zu geben, in den fertigen 
Text noch Zeilen einzufügen. Sie 
haben Platz für maximal 3.000 
Zeilen mit 10.000 Buchstaben. 
Das müßte an und für sich für je- 
den Artikel ausreichen, beachten 
Sie aber bitte, daß die Werte in 
Zeile 1 unter Umständen an den 
Speicherausbau Ihres Rechnersan- 


gepasst werden müssen. Die vorlie- 
gende Version läuft in dieser Art 
sofort auf Genie III, oder Ge- 
nie I + 1 1 mit 64K RAM. Um nach 
der Eingabe wieder an den An- 
fang zu kommen tippen Sie 
*• Menue’. 

2. Speichern auf Diskette 
Der Rechner fragt Sie hier nach 
dem Namen, unter dem der Text 
auf Diskette abgelegt werden soll. 
Geben Sie diesen bitte mit allen 
zugehörigen Informationen an. 
Also z. B. "Artik 1 /dat: 1 " 
Speichern Sie den Text bitte im- 
mer auf Laufwerk 1. Sollten Sie 
jedoch nur über ein Laufwerk ver- 
fügen, und uns eine Diskette ein- 
senden, löschen Sie Ihr DOS von 
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dieser Diskette. Sie würden sonst 
unberechtigt ein Programm kopie- 
ren und an uns weitergeben. 

3. Laden von der Diskette 
Hier wird automatisch eine Direc- 
tory von Laufwerk 1 angefordert. 
Ändern Sie je nach DOS und An- 
zahl der Laufwerke Zeile 29. Ge- 
ben Sie jetzt den Namen des Tex- 
tes ein, die Laufwerk Nummer 
kann hier entfallen. Nach Been- 
digung des Ladevorgangs kann der 
Text wie von Hand eingegeben 
bearbeitet werden. 

4. Änderungen ausführen 
Wir haben das Programm nicht 


mit einem kompletten Editor 
versehen, um es möglichst kurz 
zu halten. Sie haben aber die Mög- 
lichkeit, eine Zeilennummer einzu- 
geben, um dann in diese Zeile 
einen neuen Text einzuschreiben. 
Sie können auch eine Zeilenzahl 
eingeben, die bisher noch nicht 
existiert hat. sie wird automatisch 
mit eingefügt. 

5. Text auflisten 

Der Text wird auf dem Bildschirm 
Ihres Computers aufgelistet. Und 
zwar mit der Zeilennummer. Wenn 
Sie Return gedrückt halten, stoppt 
das Listen solange. 


6. Text ausdrucken 
Der Text wird auf einem ange- 
schlossenen Drucker ausgegeben. 

7. Textspeicher löschen 
Hier wird der eingegebene Text 
wieder gelöscht. Wenn Sie einen 
Text von der Diskette laden, so 
werden sich überschneidende Be- 
reiche sowieso gelöscht. 

Wie Sie sehen, ein kurzes Pro- 
gramm, schnell erklärt. Wenn Sie 
aber damit arbeiten, werden Sie 
sicher überrascht sein, was 55 
Zeilen Programm alles leisten. 


1 CLEARIOOOO: DIMTE* (3000) 

2 ZZ=3 

3 CLS 

4 PRINT" #####################################################*##### 


#####" 

5 PRINT" Genie Data Artikel -Erfassung" 

6 PRINT 

7 PRINT"########################################################### 
#####" 

B PRINT" 1 Text eingeben" 

9 PRINT" 2 Speichern auf Diskette" 

10 PRINT" 3 Laden von Diskette“ 

11 PRINT" 4 Änderungen ausführen" 

12 PRINT" 5 Text auflisten" 

13 PRINT" 6 Text ausdrucken“ 

14 PRINT" 7 Textspeicher löschen" 


15 PRINT jPRINT "Bitte die Code-Zahl tippen.“; 

16 A*=INKEY*: IFA*="“THEN16 

17 A=VAL(A*) SONAGOT019, 23,29, 35,41, 50, 54 

18 GDT03 

19 CLS 

20 PRINTZZ; " > s LINE INPUTTE* (ZZ) 

21 IFTE*(ZZ>="* menue"ORTE*(ZZ>«="* MENUE"GRTE* (ZZ) **"* Menue “ THENZ Z= 
ZZ-3: G0TQ3 

22 ZZ=ZZ+3: GQT020 

23 CLS: LI NE INPUT "Namen eingeben (z. B. Textl/datsl) " ; NA* 

24 I F Z Z=3THENPR I NT "Kein Text im Spei eher !“ :FDRI»1T01000: NEXTI: GOT03 

25 PRINT :PRlNT:PRINT"Bitte warten" 

26 0PEN"0", 1,NA* , 

27 PRINT#1,ZZ 

28 FQRI=1TÜZZ: PRINT#1 , TE* ( I ) : NEXT : CLOSE: GOT03 

29 CLS:CMD"i 1" . 

30 PRINT: LINE INPUT" Namen eingeben " ; NA* 

31 OPEN"I“, 1,NA* 

32 INPUT#1,ZZ 

33 PR INT" Anzahl der Zeilen"; ZZ 

34 FORI = 1T0ZZ: LI NEINPUT#! , TE* < I ) s PRINTTE* ( I ) : NEXTI : CLOSE: G0T03 

35 X“ZZs CLS: INPUT "Zeilenzahl der neuen Zeile";ZZ 

36 PRINT: PRINTTE* < ZZ) : PRINT: PRINT: PRINT 

37 PRINT"Neuer Text für Zeile";ZZ 

38 INPUTTE* (ZZ) 



/ COMPUTER 

TAG 


Am 1. Oktober 1983, 9.00 - 18.00 Uhr, Katholisches Vereinshaus, Bachstraße 10, 8670 Hof 
4 Verkaufsleitung : Hannelore Staudt 

COMPUTER- LADEN 

HANNELORE STAUDT 

BAYREUTHER STRASSE 28, TELEFON 09281-84646 und 41591 

8670 HOF 


Der erste Hofer Computertag ist nicht nur eine Ver- . 
kaufs- sondern auch eine Informations- Veran- 
staltung. Wir bieten Ihnen an den verschiedensten 
Geräten Vorführungen zu den Themen : 

COMPUTER -GRAFIK 
COMPUTER -MUSIK 
LEHR- und LERNPROGRAMME 
GESCHÄFTLICHE ANWENDUNGEN 

Zu jedem Themengebiet steht jemand bereit, der 
Ihre Fragen gern und ausführlich beantwortet. 
Hobby- Programmierer zeigen Ihnen, was mit dem 
Computer machbar ist, für professionelle Anwen- 
dungen steht der Chefprogrammierer der Firma 
Trommeschläger, St. Augustin, zur Verfügung. 


Folgende Geräte stellen wir Ihnen vor: 

Aus dem Bereich Home-Computer, den Sharp 
PC 1500, den VZ 200 und den Laser 200. 

Als Personal -Computer das Colour Genie EG 2000, 
Genie I und Genie II. 

Und aus dem Bereich Business-Computer die 
Geräte MZ 80 A und MZ 80 B, sowie Genie III. 


An allen Geräten laufen Vorführungen. Zu jedem 
aufgeführten Computer bieten wir auch : 

Fachliteratur, Zubehör und Programme. 

Auch Postversand I Spez. Info anfordern I 
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39 I FTE* ( Z Z ) - ' " d - ORTE* < Z Z ) = " D " THENTE* ( Z Z > = " " 

40 ZZ=Xs E0T03 

41 CLS 

42 PRINTZZ: PRINT :PRINT 

43 FORI=lTOZZ 

44 I FTE< ( I > = M " THENG0T047 

45 PRINT“L"; I; ">";TE* (I) 

46 1FPEEK ( 16444) =*1THEN46 

47 NEXTI 

48 PRINT "Fertig ! Return tippen !" 

49 I NPUTCC : G0T03 

50 PRINT"Bitte warten“ 

51 F0RI=1T0ZZ 

52 IFTE*(I><>"" THENLPR I NTTE$ < I ) 

53 NEXTI :G0T03 

54 CLS: PRINT "Bitte warten" 

55 FORI=lTOZZa TE* <1 ) =" " : NEXTI : ZZ=3: G0T03 


Fire Test 

Genie I + II 

Benutzer ein Schwierigkeitsgrad 
zwischen 0 und 9 gewählt werden, 
von dem die Geschwindigkeit der 
Gegner abhängt. 

Haben Sie das Spiel verloren, 
können Sie durch Drückender En- 
ter-Taste ein neues Spiel begin- 
nen, dies kann auch jederzeit wäh- 
rend des Spiels durch Drücken der 
Clear-Taste geschehen. Haben Sie 
alle Gegner vernichtet, beginnt 
nach einiger Zeit ein neues Spiel. 
Durch Drücken der Break -Taste 
wird zurück ins Basic bzw. ins 


HEX -DUMP DES PROGRAMMS FIRE-TEST 
(C;> BY RAINER SCHMIES 


7000: 

21 

DF 

00 

22 

FA 

7F 

21 

00 

00 

22 

ED 

7F 

22 

E0 

7F 

22 

7010: 

E2 

7F 

22 

E6 

7F 

31 

00 

6F 

3E 

08 

32 

F3 

7F 

AF 

32 

EB 

7020: 

7F 

21 

C0 

3D 

22 

ES 

7F 

F3 

CD 

9C 

71 

CD 

C3 

01 

CD 

B4 

7030: 

73 

21 

00 

3F 

CD 

3A 

70 

CD 

84 

74 

3A 

40 

38 

FE 

20 

CC 

7040: 

7E 

70 

3A 

40 

3S 

FE 

40 

CC 

8D 

70 

3A 

40 

38 

FE 

04 

CA 

7050 : 

66 

00 

3A 

40 

38 

FE 

02 

28 

A7 

3A 

01 

38 

FE 

40 

CC 

B2 

70E0S 

70 

CD 

DF 

70 

CD 

F7 

73 

0E 

0A 

CD 

6E 

70 

18 

CC 

10 

FE 

7070: 

0D 

20 

FB 

C3 

20 

BC 

BF 

BC 

20 

20 

SF 

BF 

SF 

20 

3A 

FA 

7080: 

7F 

C6 

3F 

D0 

21 

FA 

7F 

35 

21 

FF 

3E 

18 

0D 

3A 

FA 

7F 

7090: 

C6 

06 

D3 

21 

FA 

7F 

34 

21 

00 

3F 

ED 

5B 

FA 

7F 

ED 

5A 

70A0: 

E5 

Dl 

21 

74 

70 

01 

05 

00 

ED 

B0 

06 

3C 

0E 

01 

CD 

SB 

70B0 : 

71 

C9 

ED 

4B 

ED 

7F 

78 

Bl 

C0 

06 

00 

0E 

14 

CD 

SB 

71 

70C0: 

21 

E0 

7F 

7E 

3C 

27 

77 

CD 

84 

74 

3A 

FA 

7F 

D6 

3E 

21 

7000: 

00 

3F 

4F 

ED 

4A 

22 

ED 

7F 

7E 

FE 

20 

C2 

2D 

71 

C9 

2A 


DOS gesprungen. Das Spiel ist 
mit Ton, der über den Cassetten- 
Port ausgegeben wird, aus- 
gestattet. 

Das Programm lädt in den Spei- 
cher in den Bereich von 7000 H 
bis 771 FH. Ansprungadresse ist 
7000 H. Nach Eintippen des Hex- 
listings kann das Programm mit 
einem Monitor und diesen An- 
gaben auf Cassette gespeichert 
werden. 

Viel Spaß 

Rainer Schmies 


Fire Test ist ein Invader-Spiel, in 
dem es darum geht, die sich auf 
dem Bildschirm befindlichen Geg- 
ner zu vernichten. Die Gegner be- 
wegen sich ständig hin und her. In 
gewissen Abständen fliegt die je- 
weils unterste Reihe der Gegner 
geschlossen nach unten. Erreicht 
einer der Gegner den unteren 
Bildschirmrand, haben Sie das 
Spiel verloren. Zum Bewegen Ihrer 
Basis werden die Pfeiltasten be- 
nutzt, zum Schießen die Taste F. 

Zu Beginn des Spiels kann vom 
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TRS-80/VG Hard- und Software 

ROM-Usting 

• Vollst. disass. und deutsch kommentiert; 

• RAM-l/O-Adressen; 

• Vergleich der verschiedenen TRS-80/VIDEO- 
GENIE-Versionen; 

• 150 genau erläuterte Unterprogramme; 

• und vieles mehr (s. auch Kritiken in mc 1/82 und 
cp 13/82). 

129 Seiten gebündelte (und gebundene) Information 
f. 69,55 DM inkl. MwSt. 

L. Röckrath 

Noppiusstraße 19, 5100 Aachen, Telefon (02 41) 349 62. 
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Das Programm dient zur Verwal- 
tung von Investment-Anteilen. Es 
können bis zu 20 Investmentkon- 
ten geführt und bis zu 500 Bele- 
ge bearbeitet werden. Bestände 
und Ausschüttungen sind in Jah- 
resübersichten auf listbar. 

Das Programm ist für einen TRS 
80 Modell I (Genie l+ll) mit min- 
destens 32 KB, einem Disketten- 
laufwerk mit NEWDOS/80, Vers. 
2.0 (bei Version 1.0 muß Zeile 1 
gelöscht werden.), sowie einem 
Centronics 730 Drucker ge- 
schrieben. 

Die Druckcodes in den Zeilen 
14-17 müssen bei anderen Druk- 
kern ggf. geändert werden. 

Nach dem Start mit "RUN" 
wird das Codewort abgefragt, bei 
der bisherigen Einstellung lautet es 
PASSWORT. Danach werden die 
vorhandenen Konten und Belege 
von der Diskette eingelesen. An- 
schließend läuft das Hauptmenu 
auf. Sind noch keine Daten auf 
der Diskette, wird als erstes die 
'Eingabe neuer Investmentkonten' 
aufgerufen. 

Alle Dateieingaben können mit 
"99" verlassen werden. 

Um die eingegebenen Daten auf 
Diskette zu schreiben, muß das 
Programm mit "5 - Beenden und 
Daten auf Disk" vom Hauptmenu 
aus verlassen werden. 

Sollen ausser der Eingabe von 
Belegen auch Übersichten auf 
Bildschirm oder Drucker ausgege- 
ben werden, muß vorher die Ein- 
gabe der Tageskurse erfolgen. 

Folgende Eingaben sind über 
das Hauptmenu aufzurufen: 

1. EINGABE 

Kauf/Verkauf/ Ausschüttung 


Der Monat wird für den Kauf/ 
Verkauf zweistellig, für die Aus- 
schüttung mit 0 eingegeben. Das 
Jahr ist ebenfalls zweistellig einzu- 
ben. Als Konto wird die Nummer 
des jeweiligen Investment-Kontos 
eingegeben. Aus dem Kauf- bzw. 
Verkaufs- Betrag und dem Ausga- 
be bzw. Rücknahme-Preis wird die 
Stückzahl errechnet. Zur Kon- 
trolle wird der Gesamtbestand an- 
gezeigt. Wird die nun folgende Ab- 
frage "Richtig (y/n)" mit 'Y' be- 
antwortet, werden die Daten in 
den Speicher übernommen, an- 
dernfalls wird die Eingabezeile ge- 
löscht und der Cursor geht wieder 
an den Anfang der Zeile. Mit '99' 
bei der Monatseingabe wird das 
Menu erreicht. 

2. EINGABE 
neuer Investmentkonten 
Zur Eingabe neuer Konten wird 
die nächste freie Nummer ange- 
zeigt. Nun kann das neu aufzu- 
nehmende Konto mit bis zu 12 
Zeichen eingegeben werden. 'Y' 
bei der Abfrage übernimmt die 
Konten in den Speicher und in die 
Übersicht. 'N' erlaubt die erneute 
Eingabe für diese Nummer. 

3. AUFLISTUNG 
auf Bildschirm 

Nach der Eingabe des gewünsch- 
ten Kontos sind folgende Listen 
möglich: 

1 . Liste für best. Jahr/Monat. 

Jahr (xx) = Ausgabe aller Bewe- 
gungen in diesem Jahr 

Monat (xx) = Ausgabe aller xx. 
Monate. 

Ausschüttung (0) = Alle bishe- 
rigen Ausschüttungen. 

2. Gesamtes Konto listen. 

Für das gewünschte Konto werden 


alle bisherigen Bewegungen auf- 
gelistet. Bei aufgelösten Konten 
werden die Kontenbewegungen 
ohne Kursbewertung angezeigt. 

3. Bestandsübersicht. 

Gibt eine Übersicht über den mo- 
mentanen Bestand der einzelnen 
Konten und deren Kurswert. 

Weitere Übersichten über das 
gleiche Konto werden mit CLEAR, 
das Menue mit ENTER erreicht. 

4. AUSGABE 
auf Drucker 

1 . Liste für best. Jahr/Monat, 

2. Gesamtes Konto listen. 

3. Jahresstand drucken. 

Ausgabe der Jahressummen für 
Kauf, Verkauf und Ausschüttung 
in DM und Stücken. Beim lfd. Jahr 
jeweils bis zur letzten Eingabe. 
Aufrechnung der Jahressummen. 
Angabe von Kurs und Kurswert. 

4. Bestandübersicht 

Weitere Ausgaben für das glei- 
che Konto werden mit CLEAR, 
das Menu mit ENTER erreicht. 

5. BEENDEN 
und Daten auf Diskette 

Das Programm darf nur über die- 
sen Punkt verlassen werden, da 
sonst die eingegebenen Daten ver- 
loren sind. Es ist vorgesehen eine 
Sicherungsdiskette zu führen, die 
nach Aufforderung in das Lauf- 
werk eingelegt werden muß. 

6. EINGABE 
Tageskurse 

Zur Eingabe der Tageskurse 
(Rücknahmekurs) taufen die ein- 
zelnen Konten auf. Aufgelöste 
Konten werden angezeigt und 
übersprungen. 


Michael Sturm 


1 CMD “ BL I NK 11 ' Laesst Cursor auf blinken 

2 CLEAR 1 OOO : CLS : A*“CHR* (151) +CHR* <163) +STR I NG* (59,179) +CHR* (147) +CHRS < 1 7 
1 ) +CHRSM 13) :F0RI=lTüi4 

3 B*=B*+CHR* (149) +CHR* < 1 70 ) +CHR* ( 25 1 ) +C HR* (149) +CHR* (170) +CHR* ( 1 3 ) s NEXT I 

4 PR I NT A*+B*+CHR* <181) +CHR* < 1 78 ) +STR I NG* < 59 , 1 79 ) +CHR* < 1 77 ) +CHR* < 1 86) ; 5 B* 
— " S DEFINTA-Zs DEFSTRX-Z: DEFDBLB, S 

5 DEFFNXT (X) =MID* (X, 4, 2) "+MID*<X, 1 , 2) +" . "+MID* <X, 7, 2) : XT= H Version vom 
s 11.11.11" 

6 P=PEEK ( VARPTR < XT) +1 ) +PEEK (VARPTR <XT) +2) *256: XA=FNXT (TIME*) : F0RI = 1TDLEN 
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(XA> sP0KEI-H2*P.,ASC(MID*(XA, I) ) sNEXTI 

7 DEFFNP=PEEK(1 6416) +256*PEEK ( 16417 > -15360s PRINTS 151, "I N V E 5 T - 8 O" 


; 

8 PRINT§266, “Investment Verwaltungs Programm Version 1 . 5" ; : PRINT§400, " ( 
C) Copyright 1982, MICHAEL STURM“: 

9 PR INT §539, " Vertriebs “ ; : PRINTS601 , "Michael Sturm"; : PRINT§661 , "Fritz-Erl 
er-Strasse 3" ; s PRINT§727 , "D 3501 Schauenburg"; 

10 PRINT§850, "Benutzer Password: "STRING* (8, 24) ; : PP=2: PL=8: PV=1 

: GOSUB 1 30 : I FX 1 < >" PASSWORD " THEN 1 OELSEP V=0 : P 1 =500 

11 P2=20: DIMB <P1 ) , Bl (PI ) , M (PI ) , K (PI ) , S (PI ) , K* (P2) , ST (P2) , BS (P2) : DEFFNR (I 
, J)=lNT(I*10ÄJ+.5)/10ÄJ 

12 QFEir'R", 1, "DATEN/INV", "FF" , 28: 0PEN"R" , 2, "KONTO/ INV" , "FF" , 12: P3=L0F ( 1 ) 

: P4=L0F (2) : DEFFNM (I ) =INT ( 1/ 100) 

1 3 DEFFNJ ( I ) =1— INT ( I / 10O) * 100: DEFFNZ ( I , X ) “STRING* ( ( I -LEN ( X ) ) /2, 32) +X+STR 
I NG* ( ( I -LEN ( X ) ) /2 , 32 ) : XL=CHR* ( 31 ) 

14 XB=CHR* ( 27 ) +CHR* (19) +CHR* ( 27 > +CHR* (14)’ 40 Zeichen 

15 XN=CHR* (27) +CHR* (19) +CHR* (27) +CHR* (15) ' BO Zeichen 

16 XD=CHR* (27) +CHR* (20) +CHR* (27) +CHR* ( 14) ' 66 Zeichen 

17 XS=CHR* (27) +CHR* (20) +-CHR* (27) +CHR* (15) ' 132 Zeichen 

18 DIMXM ( 12) : F0RI=0T012: READXM ( I ) s NEXTI 

19 DATAAussch. , Januar , Februar , Maerz , April , Mai , Juni , Jul i , August, September 
, Oktober , November , Dez ember 

20 DEFFNX ( X*) =LEFT* (X*, 12) +STRING* ( 12-LEN ( X*) , 32) : DEFFNS# ( I ! > =VAL (STR* ( I 
NT ( I ! *1000+. 5) / 1000)) 

21 Yl="7. 7. #### ######.## ######.## ###*#.### #####.### #### 

#.### #####.##" 

22 Y2=" 

Kurs #####.## ######.## ######.## #####.### #####.# 

#####.## Kurswert #####.## ######.## ###* 

#.### < ’ " 

23 Y3="7. 7. ####.### #####. ##":XP(1)=" Liste fuer Monat/ Jahr": XP( 

2)=”Gesamt I i sten " : XL ( 1 > ““Druck fuer Monat /Jahr " 

24 XL (2) “"Gesamt drucken" : XL (3) =" Jahresstand drucken" : XL (4) ““Kontenueb. 
drucken": IFP3+P4=0THEN41 

25 IFP3=OORP4=OTHENCLS: PRINT5448, CHR* (23) "Fehler bei Datenf i le (s) " : STOPE 
LSEFOR 1= 1 T0P3 : GET 1 , ,65001 

26 BS (K ( I) ) =FNS# (BS(K ( I > ) +5 ( I ) ) : NEXTI : F0RI=1T0P4: GET2, , 65002: NEXTI 

27 Z=" Hauptmenu" s G0SUB1 13 

28 PRINT" 

1 - Eingabe Kauf /Verkauf /Ausschuettung 

2 - Eingabe neue Invest ment konten 

3 - Auf listen auf Bildschirm 

4 - Auf listen auf Drucker 

5 - Beenden und Daten auf Disk 

6 - Eingabe Tageskurs" 

29 PL= 1 : PP= 1 : GOSUB 1 30 : G=VAL (XI): 0NGG0T031 ,41,44,56,81,91 

30 GOT027 

31 Z= " Ei n gäbe Kauf / Ver kauf“: G0SUB1 1 3: I FP3=P 1ER= 1 : GOTO 1 22ELSEB0SUB 109 : P=5 
76 


32 PRINT" Eingabe bei Monat: 99 - Beenden / 0 - Ausschuettung 

Monat Jahr Konto Betrag Preis Stuecke Ges. St." 

33 F0RI=P3+1TGP1 

34 PP=1 :PL=2: GOSUB 131 : M ( I ) =VAL (XI ) < 1O0: I FM ( I ) =9900THENP3= I - 1 : GQT027ELSEP 
=P+6 : G0SUB1 31 : M ( I > =M ( I ) +VAL (XI): P=P+9 

35 G0SUB1 3 1 : I FV AL ( X 1 ) >P4THEN35ELSEK ( I ) =VAL (XI): P=P+7 : PL =9 : GOSUB 13 1 : B ( I ) - 
VAL (XI ) : P=P+13: G0SUB131 : Bl ( I ) =VAL (XI ) : P=P+8 

36 IFFNM(M(I) ) =0THENB( I ) =FNS# (BS (K ( I > ) *B ( I ) ) 


T-7 TCpl (TV «n-rucuc (TV _ ACI CCC (TV -piCf / O ( f \ /nl y 1 V \ 

ii Bl il / =v i ■ iiliw \ x i -vZi-juS \ x / -ruSi \B y x / / o± \ ± / / 

38 PRINTiP.USING"###. #####.###" ;S ( I ), BS (K ( I) ) +S ( I );: EI= 
5: IFX="N"THENP= t P-43: PRINTSP, XL; : GQTQ34ELSEP=P+21 


1 : GOSUB 12 
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39 P3“I : PRINT §39, US ING" ####/##" 3 P3, P4 ; : BS <K < I ) ) =BS <K ( I ) > +S < I ) : IFP>B96THE 
NP=576: PRINT9P, XL; 

40 NEXTI: P3=P i : G0TÖ27 

41 Z="Eingabe neue Konten" : GOSUB1 13: G0SUB109: IFP4=P2ER=1 : G0T0122ELSEI=P4 
+ 1 

42 PR INT §896, XLUSING"99 - Beenden ### : " ; I ; : PP=2: PL=12: G0SUB130: I 

FX 1 ==■' 99 ” THEN27ELSEE 1 = 1: GOSUB 125: 1FX="N" THEN42 

43 FIELD3, 12ASX2: LSETX2=X 1 : K* ( I > =X2: P4=I : G0TQ41 

44 ME=1 : G0SUB121 : Z=" Auf 1 i stung auf Bi ldschirm" : GOSUB1 13 

45 PRINT" 

1 - Liste fuer bestimmtes Jahr / bestimmten Monat 

2 — Ein Konto gesamt listen 

3 - Bestandsueber 5i cht 

4 - Ruecksprung zum Hauptmenu" 

46 PP=l:PL=l:60SUB13O:G=VAL(Xl> :Z=XP(G> : GQSUB1 13: QNGG0T04Q, 48, 54, 27 

47 GOT044 

48 60SUB97: GNGG0T049, 52 

49 CD=1 : PRINT §896, XL"Fuer Monat/Jahr (Ausschuettung = O) <kx> "jsPP-lsPL 
=2: GOSUB1 30: M=VAL (XI): 3FM=99THEN44 

50 IFM<OTHEN49ELSEGOSUBUO:FORI=lTOP3: IFM< >FNM (M < I > ) ANDM< >FNJ ( M < I ) ) THEN5 
1ELSEIFK ( I ) =GGGDSUB98 

51 NEXTI s ME=1 : GQT01 18 

52 CD=2 : GOSUB 110: FOR 1=1 T0P3 : I FK ( I ) =GGGOSUB98 

53 NEXTI :ME=1: GOTO 11B 

54 CD=3: Z=" Bestandsueber sicht 11 : G05UB1 13: PR INT" Konto Anteile K- 

wert Konto Anteile K-wert";: FORI=1TOP4: PRINTUSINGY3; K 

$ ( 3 > ,BS(I) ,BS(I> «ST (3) ; : IFI/20INT ( I /2) THENPRINT" 

55 NEXT I : GOTO 118 

56 ME=2: GOSUB 12 1 : Z=" Auf 1 i stung auf Drucker ": G0SUB1 13 

57 PRINT" ' 

1 - Liste fuer bestimmtes Jahr / bestimmter Monat 

2 - Ein Konto gesamt listen 

3 - Jahresstand listen 

4 - Bestandsuebersicht listen 

5 - Ruecksprung zum Haupt menu" 

58 PP= 1 : PL=1 : GOSUB 130: G=VAL (X 1 > : Z=XL <G> : GOSUB 1 13: 0NGG0T059, 59, 65, 78, 27 

59 GÖSUB97: ONGGQT060, 63 

60 PRINT5896, XL"Fuer Monat/ Jahr (Ausschuettung = 0) (xx) " ; : PL=2: PP=1 : GO 
SUB130: M=VAL <X1 ) : I FM< 0THEN60ELSE I FM=99THEN56 

6 1 GOSUB 111: FOR I = 1 T0P3 : I FM< >FNM ( M (I > > ANDM< >FNJ < M < I ) ) THEN62ELSE I FK ( I ) =6GG 
0SUB102 

62 NEXTI :ME=2:G0TD1 18 

63 GOSUB 1 1 1 : FDRI=1T0P3: IFK ( I ) =G6GDSUB102 

64 NEXTI :ME=2:G0T01 18 

65 J=0: IB=1 : G0SUB71 : FDRI=1T0P4: IA=0: KA*=K* < I ) : BB=0: SB=0: BL=0: SL=0: BW=0: S 
W=0: FORI 1=1 TOP3 

66 IFK ( 1 1 ) < > I THEN68ELSE I F I A=OTHEN I A= 3 1 : JA=FNJ <M < 1 1 > > : BA=0: SA=0: BK=0: SK=0 
: BV=0: SV=0: 60SUB76: G0T068 

67 IFFNJ (h(Il) )=JATHENlA=Il:GOSUB76:GOT068ELSEIA=O:GOSUB74:KA*= ,,n :GOTO66 

68 NEXTI 1 : GOSUB74: LPR INTUSI NGY2; ST < I > , BL, BW, SL, SW, SB, BB, ST < I > * (SL-SW+SB) 
, BL— BW, SL— SW+SB: LPRINT“ " : LPR INT" ":J=J-*-2 

69 IFIOP4GOSUB72 

70 NEXTI :ME=2:G0T01 18 

71 LPR I NT XBUS 1 NG “ J ahr es über si ch t “ +X N+ " Stand: "+FNXT (TIMES) ■+*' 


Blatt ###“; IB: IB=IB+1 


72 LPRINT" 
Verkauf 

": LPRINTXN" 

Ausschuettung " 


Zukauf 

Verkauf 

Zukauf 

73 LPRINTXN 
St. 

"Konto Jahr 

DM": J=4: RETURN 

DM 

DM 

Stuecke 

Stuecke 


74 LPRINTXNUSINGY1 ; KA$, 1900+JA, BK, BV, SK, SV, SA, BA: BB=BB+BA: SB=SB+-SA: BL=BL 
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+BK; SL=SL+SK : BW=BW+BV: SW=SW+SV: J= J+ 1 

75 IFJ/50=INT ( J/50) THENEI=2: GDSUB125: IFX =,, N"THEN56ELSE71 

76 IFFNM (M ( 1 1 > ) =OTHENBA=BA+B (II) :SA=SA+S(I 1 ) : RETURNELSE IFB (1 1 > <OTHENBV-B 
V-B < 1 1) i SV=SV-S ( 1 i ) : RETURNELSEBK=BK+B (II): SK=SK+S (II) 

77 RETURN 

78 Z="Bestandsuebersicht n : G0SUB1 13: LPRINT" u : LPRINTXB"Bestandsuebersicht 

Stand: "FNXT (TIME®) : LPRINT” ” 

79 CD=4: LPRINT "Konto Anteile K-wert Konto Anteile 

K-wert" ; : FORI=lTOP4: LPR1NTUSINGY3; K* ( I ) , BS < I ) , BS C I ) *ST ( 1 ) ; : 3FI/2< 

>INT (1/2) THENLPRINT“ " ; ELSELPRINT“ " 

80 NEXTI : LPRINTCHRS ( 13) : GDT056 

81 WF=OsZ=" Beenden und Daten auf Di sk “ : G0SUB1 13: IFP3< >L0F ( 1 >THENWF=1 : FOR 
I=L0F ( 1 ) +1T0P3: PUT 1 , 1 . 65001: NEXTI 

82 I FP4< >LQF ( 2 ) THENWF=WF+2 : FOR I =L0F ( 2 ) + 1 T0P4 : PUT2 , 1 , 65002 : NEX T I 

83 CLOSE: IFWF=OTHEN90ELSEZ="Daten auf Si cherungsdi sic G0SUB1 13 

84 PRINT1256, “Bi tte Si cherungsdi 5k in Drive 1 einlegen und ENTER druecke 
n ■ M 5 

85 IFINKEY«>CHR$(13)THEN85ELSEOPEN"R", 1, “Daten/ Inv: 1", "FF" , 28: OPEN"R“ , 2 
. "Konto/ Inv: 1", "FF", 12 

86 IFWF=10RWF=3THENF0RI=L0F ( 1 ) +1TOP3: PUT1 , I , 65001 : NEXTI 

87 IFWF=2ORWF=3THENF0RI=L0F (2) +1T0P3: PUT2, I , 65001 :NEXTI 

88 CLOSE: PRINTS384, "Bi tte Sicherungsdisk aus Drive 1 entfernen und ENTER 
druecken. 

89 IF INKEY« >CHR$ (13) THEN89 

90 END 

91 Z=“ Tageskursei ngabe" : G0SUB1 13: P7=192: F0RI=1T0P4STEP2: PRINT§P7, K* ( I) " 

; "i: IFBS(I)=0THENPRINT“** Verkauft **";:G0T093 

92 PP= 1 : PL=6 : GOSUB 130 : ST ( I ) =VAL (XI) 

93 IF I + l >P4THEN96ELSEPRINT§P7+32, K$ ( 1 + 1 ) " : “ ; : 1FBS ( 14-1 ) =OTHENPRINT"** V 
erkauft * * " : s G0T095EL SEPP= 1 : PL=6 : GOSUB 1 30 

94 ST ( I + 1 ) = VAL (XI) 

95 P7=P7+64: NEXTI 

96 GQT027 

97 J=0:GQSUB1 09: PRINT" 

Fuer Konto " ; : PP=1 : PL=2: G0SUB130: GG=VAL (XI ) : IFGG=99THEN120ELSEIFG6< 10RGG 
>P4THEN97ELSE RETURN 

98 S=S+S(I) :IFFNM(M(I) > < >0THENB=B+B ( I ) ELSEIF M=0B=B+B(I) 

99 J=J+1 

100 PR INTUS ING "7. 7. ## ####. 

###.##-“.XM(FNN<M(I)>> ,FNJ (M ( I ) > , B ( I) , B, Bl ( I > , S ( I > , S, S*ST (GG> ; 

101 D=0: G0T0106 

102 S=S+S ( I ) : IFFNM (M ( I ) ) < >OTHENB-B+B ( I) 

103 J=J+1 

104 LPRINTXNUSING"-/. 7 ## ####.##- ###.##- ###„###- ####.##- #####. 

#*- #####.###- #####. ##-";XM(FNM<M(I) ) ) ,FNJ (M(l > > ,B (I ) ,B1 (I > ,S( I) ,S(3)*S 
T(GG> ,B,S,S*ST(GG) 

105 D=1 

106 IF (DANDJ/50=INT (J/50) > OR (D=0ANDJ/ 12=1 NT ( J/ 12) ) THENEI=2: G0SUB125ELSER 
ETURN 

107 I FXj="N “ THENOND+ 1 GDT044 , 56ELSE I FDGOSUB 1 1 lELSEPRlNTil92.XLS 

108 RETURN 

109 PRINT§12B,XL; :F0RI=1T0P4:PRINTUSING“### % X" ; I ;K* ( I) NEXTI 

: PRINTS 448, ;: RETURN 

110 G0SUB1 16: PRINTS 128, XL"Monat Jahr Einz. Gesamt Preis Stuecke 

Gesamt Kurswert " : RETURN 

111 G0SUB1 16: LPRINT" " : LPRINTXB; Z: LPRINTXN"Monat Jahr Einz. Preis 

Stuecke Wert Ges. DM Ges. St. Kurswert" 

112 LPRINT" " : RETURN 

113 IFZ=“ "THENRETURN 

114 PR I NT SO , US I NG " % INVEST80 * 7. 


7. ####/## Daten i 
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m Speicher" +STRING* (64, 140) +XL; Z,P3,P4; :RETURN 

115 FORWW^I T0750: NEXTWW : RETURN 

116 Z=STR*(ST(GG> ) s IFINSTR(Z, " . " ) *OTHENZ=Z+" . 00"ELSEIFLEN ( Z > — INSTR (Z, ■ 

) <2THENZ=Z+"0" 

117 Z=K*(GG)+" Kurs: "-*-Z: G0TQ1 13 

118 S=0: B=0: J=0: PRINT§960, XL“ Menu < ENTER > - Fortsetzu 

ng CCLEARV; 

119 X=INKEY*: IFX< >CHR* < 13) ANDX< >XLTHEN1 19ELSEIFX=XL0NCDGDT049, 48, 44,56 

120 DNMEGDT044 , 56 

121 CD=0:S=0:B=0: J=0: RETURN 

122 0NERG0SUB123, 124:GOT027 

123 PRINT§960, "Speicher voll - Keine Eingabe mehr moeglich" ; iGOTOl 15 

124 GQT0115 

125 0NE1G0T0126, 127 

126 PRINT§960,XLCHR* (212) "Richtig <y/n) ";sG0T0128 

127 PRINT §960, XLCHR* (212) "Weiter <y/n) ";:G0T0128 

128 X = INKEY$:iFX= ,,,, THEN128ELSEIFX= , V , THENX="Y u ELSEIFX="n"THENX="N"ELSE12 
8 

129 PRINT§960, XL;: RETURN 

130 P=FNP 

131 X 1 = " " : PRI NT §P , STR I NG* (PL, 46 ) STR I NG* ( PL , 24 ) CHR* (14); 

132 INKEYS: IFX*""THEN132ELSEP8=ASC(X) * 3FX1="“T>SEN134ELSEIFP3=8THENX1“L 
EFT* (XI , LEN (X 1 ) — 1 > : PRINTXCHR* (46)CHR* (24) ; :G0T0132 

133 I FP8= 1 3THENPR I NTSTR I NG* ( PL-LEN ( X 1 ) , 32 > CHR* (15);: RETURN 

134 1 FPP= 1 THEN I FPB< >45 ANDPB< >46 AND ( PB< 4B0RPB >57 ) THEN 1 32 

1 35 I FPP=2THEN I FP8< 32DRP8 > 1 28THEN 1 32 

1 36 I FLEN (XI) =PLTHEN1 32ELSEX 1 =X 1 + X : I FPV, PR INT " * “ ; ELSEPR INTX; 

137 GOTO 132 


Wo? ln unserem Colour Genie, wo denn sonst? 

Und da unser Wurm einige Junge hat, können wir Ihnen wejche abgeben 1 Aber Vorsicht, die Würmchen lümmeln sich ganz 
schön auf dem Bildschirm rum I Und sie haben ständig Hunger I Übrigens, man erkennt sie sofort am gierigen Blick. Und der 
Computer macht Musik dazu, und das sehr gutl 

Also: Bestellen Sie sich sofort einen WURMI, damit es bei Ihnen auf dem Bildschirm auch mal rund geht! 

WURMI nur DM 29,-! ! ! {Eigentlich viel zu billig.) 

Ralf M. Hübben, Verlag für Computertechnik, D-5429 Marienfels 
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Programm - Cassetten 

Verwaltung 


Dieses Programm soll helfen, in 
den Programm-Cassetten-Wirrwarr 
etwas Ordnung zu bringen. 

Das Programm besteht aus sechs 
Teilen. 

Teil 1 erzeugt eine aktuelle 
Liste aller Programme mit zuge- 
höriger Cassetten-Nummer. 

Teil 2 listet alle Programme auf, 
die auf einer Cassette zu finden 
sind. 

Teil 3 druckt eine aktuelle Liste 
aller Programme mit zugehöriger 
Cassetten-Nummer auf einem an- 
geschlossenen Drucker aus. 

Mit Teil 4 kann eine Liste er- 
stellt, ergänzt oder geändert wer- 
den. 

Mit Teil 5 kann man ein Pro- 
gramm suchen lassen. Es erscheint 
dann in einer Kopfzeile, auf wel- 
cher Cassette das gesuchte Pro- 
gramm z ti finden ist. 

Nach dem Laden und Starten 


des Programms meldet es sich 
mit einem Auswahlmenue. Wird 
'4' ausgewählt, fragt das Pro- 
gramm unter welchem Buchstaben 
ein Programm-Name einge- 
speichert werden soll. Nach der 
Beantwortung dieser Frage springt 
das Programm in die entsprechen- 
de Data-Zeile im Edit-Modus. 
Beim jungfräulichen Programm be- 
steht diese Data-Zeile aus einer 
Rem-Zeile. 

Dieses Rem ('} ist zu löschen. 
Mit 'X' springt der Cursor ans En- 
de dieser Zeile. Dort wird der Pro- 
gramm-Name und die Cassetten- 
Nummer ohne Blank eigegeben. 

Beispiel: 

400 Edit 400:Data Android-Nim 
01,Armored-Patrol13 
Zwischen zwei Programm-Namen 
muß ein Komma stehen. Sind alle 
Programm-Namen in die Data-Zei- 
le eingeschrieben, muß das Pro- 


gramm neu gestartet werden. Dies 
kann über 'RUN' oder 'GOT0 100' 
erfolgen. Wenn Sie mit dem Ein- 
schreiben aller Programm-Namen 
fertig sind, muß das Programm ab- 
gespeichert werden! Dies kann 
über Auswahl 6 erfolgen. 

Sollte nun eine Data-Zeile voll 
sein (223 Zeichen), so muß eine 
neue Data-Zeile angelegt werden. 
Ist z.B. die Zeile 400'A' voll, so 
muß nun die alte Zeile folgender- 
maßen abgeändert werden : 

400 Edit 401 :Data Android usw. 
Die neue Zeile muß nun so ausse- 
hen: 

401 Data Amadeus22 

. Dieses Programm ist ein Bei- 
spiel, wie man auf 'eine' Art et- 
was Übersicht über seine Pro- 
gramm-Cassetten bekommen 
kann. 

Viel Erfolg wünscht: 

Walter Müller 


10 CLSsCLEAR 500 
20 PRINT STRING* (64,42) 

30 PRINTf 194, “C ASSETTEN-VERWALTUNGS-PROGR 
A M M" 

40 PRINTS349, " V O N ":PRINT 
50 PRINT§455, “WALTER MUELLER 
60 PRINTsPRINT 
70 PRINT STR ING* (64, 42) 

80 FOR 1= 1 TOIOOO : NEXT I 
90 CLS 

100 PRINT" AUSWAHLMENUE " 

110 PRINT: PRINTsPRINT 


120 PR INT "PROGRAMM-LISTE GESAMMT ? (1)" 3 PRINT 

130 PR INT "PROGRAMM-LISTE NACH CASSETTEN-NR ? (2) "sPRINT 

140 PRINT" PROGRAMM-LISTE DRUCKEN ? (3) "sPRINT 

150 PR INT “PROGRAMM-LISTE ERGAENZEN ? (4) "sPRINT 

160 PR INT "PROGRAMM SUCHEN ? (5) “sPRINT 

170 PR INT "PROGRAMM ABSPEICHERN ? (6) * 


1B0 RESTORE: A“0: 1*0 

190 ON VAL (INKEY*) GOTO 210,860,720,360,960,670 
200 GOTO 190 
210 CLS 
220 READ A* 

230 I«I+1:A*A+1 

240 IF A*=" ENDE“, GOTO 250 ELSE 270 




ABONNEMENT BESTELLUNG 


Hiermit bestelle ich 
GENIE DATA. 


Abonnements) der Zeitschrift 


Mir ist bekannt/ daß ich das Abonnement zu jedem Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 

Der Bezugspreis beträgt innerhalb der BRD nur DM 30, — 
pro Abonnement. (Sechs Ausgaben) 

Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird.- 

Mit obigen Bedingungen erkläre ich mich einverstanden: 

Unterschrift ? Datum : _____________ 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten I 


W KONTAKT-KARTE 


Ihr Inserat in der GENIE DATA Nr. hat meine Beachtung 

gefunden . 

O Bitte schicken Sie mir weiteres Informations-Material. 
Hiermit bestelle ich zur schnellstmöglichen Lieferung: 


Anzahl Artikel 



Unterschrift : Datum : 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 


KLEIN-ANZEIGEN- BESTELLUNG 



Absender: 


Name 


Straße 


(PLZ) Ort 

Für private Abonnenten' der GENIE DATA 
sind die ersten drei Zeilen der Kleinanzeige 
kostenlos. 

Jede weitere Zeile 5,50 DM 

Private Kleinanzeigen pro Zeile 6,00 DM 

Geschäftliche Kleinanzeigen 
pro Zeile 7,50 DM 

Chiffre Gebühr 9,00 DM 

Alle, oben genannten Preise enthalten die 

gesetzliche Mehrwertsteuer. Der Betrag ist 
zahlbar sofort nach Erhalt der Rechnung, 
rein netto. . 



POSTKARTE 

An 

Ralf M. Hübben 

Verlag für Computertechnik 

Miihlbachstraße 2 
D-5429 Marienfels /Ts. 


Absender: 


Name 


Straße 


(PLZ) Ort 



POSTKARTE 

An 

Ralf M. Hübben 

Verlag für Computertechnik 

Mühlbachstraße 2 
D-5429 Marienfels/Ts. 




gimWMi V&ittK&tWt&ifsttftgSSa 


Absender: 



Bitte 

freimachen 


POSTKARTE 


Ralf M. Hübben 
Verlag für Computertechnik 
Mühlbachstraße 2 
D-5429 Marienfels/Ts. 



Bitte 

freimachen 


POSTKARTE 

Firma 
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250 PR INT SPRINT" ENDE DER LISTE" 

260 tPR INT: PR INT "LEERT ASTE !":GOTO 350 
270 L=LEN(A$) 

280 L 1=L— 2 

290 B*=LEFT*(A*,L1> 

300 B*=B*+STR ING* ( 40-L1 , " - " > 

310 C*»RIGHT*<A$,2> 

320 PRINTI , B5; C* 

330 IF A=1 4 THEN PRINT" LEERTASTE ! "ELSE 220 
340 A=0:Z*=INKEY*: IFZ*=" "THEN 210 ELSE 340 
350 A*=INKEY*:IFAS=" "THEN 90 ELSE 350 

360 CLS: INPUT "UNTER WELCHEM BUCHSTABEN SOLL DAS PROGRAMM ABGESPEICHE 
RT WERDEN " ; Z* 

370 N=ASC<Z*> :N=N-64 

380 ON N GOTO 400,410,420,430,440,450,460,470,480,490,500,510,520,53 

0, 540, 550,560,570,580, 590, 600,610, 620, 630, 640, 650 

390 ’ DATA LISTE FUER PROGRAMME 

400 EDIT 400: 'DATA A 

410 EDIT 410: 'DATA B 

420 EDIT 420: 'DATA C 

430 EDIT 430: 'DATA D 

440 EDIT 440: 'DATA E 

450 EDIT 450: 'DATA F 

460 EDIT 460: 'DATA G 

470 EDIT 470: 'DATA H 

480 EDIT 480: 'DATA I 

490 EDIT 490: 'DATA J 

500 EDIT 500: 'DATA K 

510 EDIT 510: 'DATA L 

520 EDIT 520: 'DATA M 

530 EDIT 530: 'DATA N 

540 EDIT 540: 'DATA 0 

550 EDIT 550: 'DATA P 

560 EDIT 560: 'DATA □ 

570 EDIT 570: 'DATA R 
580 EDIT 580: 'DATA S 
590 EDIT 590: 'DATA T 
600 EDIT 600: 'DATA U 
610 EDIT 610: 'DATA V 
620 EDIT 620: 'DATA W 
630 EDIT 630: 'DATA X 
640 EDIT 640: 'DATA Y 
650 EDIT 650: 'DATA Z 
660 DATA ENDE 
670 CLS 

680 INPUT “WELCHER RECORDER INTERN <I> EXTERN <E>";R* 

690 INPUT" RECORDER AUF AUFN. SCHALTEN UND <NEW-LINE> DRUECKEN" ; Z 
700 IFR*="I“THENCSAVE#-1, "A"ELSE CSAVE#— 2, “A" 

710 PR INT "PROGRAMM GESPEICHERT ! ":FQR R=lT010O0:NEXT:G0T090 
720 IF INP (253> < >63 THEN 730 ELSE 750 
730 CLS: PR INT "DRUCKER EINSCHALTEN !!!!" 

740 IF INP (253) 063 THEN 740 

750 CLS: INPUT"GIB HEUTIGES DATUM EIN (TT-MM—J JJ J > " ; TS 
760 CLS: PRINT5448, “BIN BEIM DRUCKEN" 

770 LPRINT: LPRINT: LPRINT: LPRINTSTRING* (67,45) : L PRINT: LPRINT: LPRINT: L 
PRINT 

7B0 LPRINT: LPRINT" PRDGRAMM-LISTE VOM "T*5 
790 LPRINT: LPRINT: LPRINT 

BOO READ A*:ST=ST+1: IF ST=60 THEN GOSUB 1030 
810 IF A*«=" ENDE "THEN 90 
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320 L=L£N <A$> : Li=L-2: B*=LEFT* ( A*, LI ) : B*=B*+STRINö* (40-Li , " . ”) 

330 3=I+1:C*=RIGHT*(A*,2> 

340 LRR INT 
850 GOTO 800 

860 RESTOREsCLS: INPUT "WELCHE CASSETTE (01-99) ";Z*:CLS 
870 READ A*: I FA<= " ENDE " THEN 930 

880 L=LEN(A*> :L1=L-2:B*=LEFT*(A*,L1> : B$=B*+STRING* (40-L1 p " . " ) 

390 C*=R1GHT*(A$,2> 

900 IF Z*=C* THEN 910 ELSE 870 
910 1=3+1 sPRINTI , B$; C$ 

920 GOTO 870 

930 PRINT: PRINT: PRINT-LISTE BEENDET " 

940 PRINT: PR INT "LEERT ASTE DRUECKEN !“ 

950 A*=INKEY*: IFA*=" "THEN 90 ELSE 950 

960 CLS: INPUT “WELCHES PROGRAMM 7 (DIE ERSTEN DREI BUCHSTABEN) P*: C 
LS 

970 READ A$: IFA*= "ENDE "THEN 1040 
980 L=LEN(A*> : Ll=L-2: B*=LEFT* <A$,L1 ) 

990 C$=RIGHT*(A*,2> 

lOOO IF LEFT*(P*,3>=LEFTS(B*. I 3> THEN 1010 ELSE 970 

1010 PR INT "DAS PROGRAMM *** "B*" *** IST AUF CASSETTE NR. "CS 

1020 PRINT: PRINT: GOTO 120 

1 030 LPR INT : LPRI NT : LPR I NT : LPR 1 NTSTRINGS (67,45): LPR I NT: LPR INT: LPRI NT : 
LPRINT”:5T=0: RETURN 

1040 PRINT: PRINT"DAS PROGRAMM *** "PS" *** IST NICHT EXISTENT" 

1050 GOTO 110 


Leichtverständliche Rechnerprogramme 
für HANDEL und GEWERBE 

Angebots- und Rechnungswesen nach Textbau- 
steinen mit Preis, Stückzahl, Rabattsatz etc und 
anschließender Speicherung. DM 485, - 

Adressdatei mit verschiedenen Selektier- und 
Sortierroytinen sowie einer Textverarbeitung 
für Werbeschreiben etc. DM 570, — 

Lieferanten- und Artikeldatei mit Zuordnung und 
Sortierung nach 6-stelliger Art. -Nr. für Export 
als 2-sprachige Version. DM 290, — 

Wärmebedarfsberechnung nach alter und neuer 
DIN, incl. K-Wert Berechnung mehrschichtiger 
Bauteile. DM 890,— 

Komplette Anlagen zu vernünftigen Preisen auf Anfrage 
MC-SERVICE F+D Brücher Kirberg 1B6276 Bielstein 


SCHLUSSBERICHT ZUR ERSTEN BERLINER COMPUTERBÖRSE 

Am 23.7. fand in Berlin in der alten TU-Mensa die erste Berliner Computerbörse statt. Trotz strahlendem 
Badewetter mit Temperaturen um 30 Grad fanden sich mehr Besucher ein, als vom Veranstalter und von 
den Anbietern erwartet Es waren sowohl überörtliche als auch lokale Unternehmen und Computerclubs 
vertreten. Im privaten Bereich wurden viele Geschäfte in den Veranstaltungsräumen als auch außerhalb ge- 
tätigt. Drei Neuvorstellungen waren auf dieser Börse zu sehen. Die entwicklungsfreudige Berliner Firma CSC 
stellte ihr neues Motherboard vor. Von der Ingenieurgesellschaft ANCON vyurde eine CCU (Computer Con- 
troller Unit) gezeigt. Ein Baustein, mit dem man verschiedene PC's zusammenkoppeln kann, die nicht mit- 
einander kompatibel sind. Und der DRAGON 32, ein aus England kommender Home-Computer wurde in 
Berlin vorgestellt. Natürlich gab es auch Sonderangebote, wie zum Beispiel Drucker zum Preis von ca. 500,- 
DM und Disketten im 10er Pack für 50,- DM. Obwohl die sommerliche Hitze Anbietern und Besuchern zu 
schaffen machte, war es doch eine gelungene Veranstaltung. 

Die zweite Berliner Computerbörse ist für den November in größeren Räumen geplant, um ein noch vielfäl- 
tigeres Angebot der interessierten Öffentlichkeit bieten zu können. 


; 


Jörg Dietmar Ganz. 
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C3BS 

Am 15. August 1983 hat RMI Nachrichtentechnik GmbH in Zusammenarbeit mit Software Service Berlin 
den ersten deutschen CBBS (Computer Bulletein Board Service) in Betrieb genommen. 

In den USA gibt es von diesen über Telefon anwählbaren Kleincomputern sehr viele private Installationen, 
welche dort für Nachrichten- und Programm-Austausch genutzt werden. 

RMI Nachrichtentechnik GmbH hat einen Rechner für diese Aufgabe abgestellt, der über DATEX-P von vie- 
len deutschen Orten zu Ortstarif angewählt werden kann. Nach 19.00 Uhr ist dieser Dienst frei für jeder- 
mann. Es können hier Nachrichten an alle Benutzer oder an Bestimmte abgelegt werden, welche die Em- 
pfänger dann ebenfalls per Telefon abrufen können. Das System ist gegenwärtig in der Entwicklung und Vor- 
schläge der Benutzer werden gerne angenommen. Zur Anwahl wird ein Telefon, ein Modem und ein Ter- 
minal (Bildschirmtextfernseher, Terminal oder Druckerterminal) benötigt. DATEX-P ist ein Paketvermitt- 
lungsdienst, welcher weltweit (z.B. über Tymnet/Telenet etc.) angewählt werden kann. 

Der CBBS wird während der Geschäftszeit zur Annahme von Telexen und Bestellungen verwendet. Die 
'Hobby'-Anwendung sieht auch eine Verbindung mit KW- und UKW-Amateurfunkstellen vor (s. auch R IC- 
Berlin). Eine Softwaretausch-Datenbank ist in Vorbereitung. 

Ein Merkblatt über den Zugang zu dem System kann gegen DM -.60 Rückporto bei der RMI Nachrichten- 
technik GmbH angefordert werden. 


ERSTER HOFER COMPUTERTAG 

Am 1. Oktober 1983 findet im Katholischen Vereinshaus in der Bachstraße in 8670 Hof der erste Hofer 
Computertag statt. Unter anderem laufen Vorführungen zu den Themen Computer-Grafik, Computer- 
Musik, Lehr- und Lernprogramme und geschäftliche Anwendungen. Neben vielen 'Computer-Hobbyisten' 
wird auch der Chefprogrammierer der Fa. Trommeschläger anwesend sein. Veranstalter ist der Computer- 
Laden H. Staudt, Hof. 


Z 80 SUPER EMUF 


Zur kostengünstigen Lösung von Decoder-, Steuerungs-, Interface- und anderen Problemen, entwickelte die 
Firma Kanis den Z 80 Super EMUF (Einplatinen-Microcomputer für Universelle Festwertprogramm Anwen- 
dung). Zur Standardausrüstung des Z 80 EMUF gehören: 

Clock 4 MHz, CPU Z 80 A, RAM 2K, EPROM 2K. 

Ohne Änderung der Platine können auch die entsprechenden 8K Bausteine verwendet werden. Den Kontakt 
mit der Außenwelt stellen zahlreiche Interfacemöglichkeiten her : 

16 frei programmierbare Ein/Ausgabeleitungen, eine serielle Schnittstelle (V24 oder 20mA) mit Handshake, 
4 Zeitgeber/Zählerkanäle. 

Für Uhrenanwendungen steht ein quarzstabiler 1 sec. und 1 min. Zeittakt zur Verfügung. 

Der Preis beträgt für die Platine DM 49,-, für den Bausatz DM 220,-- und für das Fertiggerät DM 293,- incl. 
MWSt, ab Werk. Im Preis ist eine ausführliche Beschreibung (Schaltplan, Bestückungsplan, Adresse, Program- 
mierhinweise und Testprogramm) enthalten. Fordern Sie bitte weitere Informationen an : 

Ing. Büro W. Kanis GmbH, Lindenberg 1 13, 8134 Pöcking, Tel. 081 57-3576 und 1680 


Platschvogel 


Dies ist ein einfaches Spiel, das vor 
allem Anfängern Spaß machen 
wird. Durch die Verwendung der 
frei programmierbaren Zeichen, 
kann der Vogel leicht in ein UFO 
oder dergleichen umgewandelt 
werden. 


Auch Geschwindigkeit, Farbe 
und Ton können nach Lust und 
Laune geändert werden. 

Nach dem Abwurf von 40 Eiern 
tritt eine kleine Pause im Pro- 
gramm auf, ab hier wird die Quer- 
summe der unteren Zeile ge- 


prüft und festgestellt ob alles ge- 
troffen ist. Der Einfachheit halber 
wurde dieser kleine Nachteil nicht 
beseitigt. Basic ist hierzu langsam. 
Compiliert läuft es gleichmäßig, 
muß aber angepaßt werden. 

Gerhard Puzicha 
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1 CLS 

2 COLOURi 

3 PRINT" COPYRIGHT BY * GERHARD PUZICHA * 

4 PR I NT " W ALHOVENER STR. 25 4047 DORMAGEN " : FORN=OT0600 : NEXT 5 CLS 

5 PR INT "Dü BIST HERR UEBER DEN BROSSEN 

PLATSCHVOGEL UND KANNST MIT DER 

LEERTASTE DEN EIERABWURF STEUERN. 

6 PRINT: PRINT 

10 PRINT " WAEHLE ANFAENGER - 60 EIER = 1 
15 PRINT 

20 PRINT" ’ ’ KOENNER - 55 ’ ' =2 

25 PRINT 

30 PRINT" ’ ' PROFI - 50 ” =3 

40 PRINT 

50 INPUT "GIB DEINE WAHL EIN "JA 
55 IF A< 1 OR A>3 THEN 50 


______„ » 

60 IF A“1 G=50JL=60 ’ GESCHWINDIGKEIT’ 

70 IF A=2 G=30: L=55 'UND ANZAHL DER’ 

80 IF A-3 G=5 : L=50 ’ EIER. 

85 ' ’ 

90 CLS 

95 GOSUB 1000 
97 CDL0UR2 


100 PRINTiO, "ZUM WURF "L" EIER. GEWORFEN SIND " 

104 GOSUB 2000 

120 Z«0 ’Z-ZAEHLER’ 

130 H=1 ’ H=HILFSZAEHLER’ 

150 S=79 ' S=POSITION VOGEL' 

155 R=S ' R=POSITIQN EI’ 

160 S=S-1 

170 IFH=Z PRINTi890, " ! ! ! PLATSCH ! ! ! "ELSE200 

175 PLAY (1,4,5, 11) tpLAY(l, 1,8, 15) 

176 FOR N=1 TO 60: NEXT 

177 PLAY ( 1, 1, 1,0) 

178 PRINTS890, " 

180 H=H+1 

190 IF H=L+1 GOTO 500 

200 PR INT iS, CHR$ ( 128) +CHR$ ( 129) +CHR* <130) 'DIES IST DER VOGEL’ 
210 FOR N=0 TO G: NEXT 
220 PRINT§S, " 

230 PRINTiR," " 

240 IF S=39 S=79 
250 IF E$=" " 280 

260 E*=INKEY*‘.IF E*<>" "270 'ABFRAGE DER LEERTASTE’ 

270 R*=S 

280 R=R+40 

295 C0L0UR3 

300 PRINTiR, CHR$ (230) 

305 IF H>39 AND R>=840 THEN 700 

310 IF R>=840 Z=Z+l.'PRINTi35, ZJ:ES="A": PRINTiR," l":R=S 

320 GOTO 160 

500 FOR N*=0 TO 300: NEXT 

510 CLS 

520 PRINTi320, "DU HAST "JL5" EIER VERBRAUCHT" 

525 PRINT 

526 PR INT" UND ES NICHT GESCHAFFT," 

527 PRINT 
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52 B PR INT "ALLES GLEICHMAESSIG ZU BEKLECKERN. 

530 PRINTÜB40, "MOECHTEST DU EIN NEUES SPIEL ? .< J/N > 

540 INPUT A$ 

550 IF A*="J" THEN RUN ELSE END 

700 Z=Z+19PRINTS35, Z : E*=" A" : PRINTSR, " I“ 

705 ' ’ 

710 U=1B24B 'QUERSUMME PRUEFEN, OB ALLES BETROFFEN IST (LETZTE ZEILE)' 
720 M=0 

730 FÜR O=0TQ 39 
740 M=M+PEEK(U) 

750 U=U+1 

751 ’ : ' 

760 IF M“9760 THEN PRINTS 400, "BRAVO ! ! ! DU HAST ES BESCHAFFT, 

ES IST ALLES SCHOEN BEKLECKERT" : G0T0530 

770 NEXT 

7BÖ R=S 

790 GOTO 320 

795 ' ' 

1000 D*=3073 'VOGEL ZEICHNEN' 

1010 B=0 

1020 D=D-1 

1030 B=B+1 

1040 READ C 

1050 POKE — D, C 

1060 IF B< >24 THEN 1020 

1070 DATA56, 78,240, 190, 131,0,0,0,0,0,255,223,223, 126,36,36,33,66 
1075 DATA 136,160,0,0,0,0 
1080 RETURN 

1085 ' ’ 

2000 Y=759 'FIGUREN ZEICHNEN' 

2010 Y=Y+1 
2020 READ X 
2030 PRINTSY,CHR*(X ) t 
2040 IF YOB39 THEN 2010 

2050 DATA32, 32, 32, 32,230, 32, 32, 32, 205, 216, 224, 32, 32, 32,32, 32, 32 
2052 DATA 32,32,32,32,32,32,205,202,202,202,202,224,32,32,205 
2054 DATA 224,32,32,230,32,32,203,32,202,32,201,32,241,32,201 
2056 DATA 201,202,202,202,32,201,201,32,201,201,32,32,201,201 
205B DATA 32,32,202,32,202,202,202,202,32,201,202,202,201,32 
2060 DATA 202,32,32,202,201 

2064 CQLDUR6 

2065 PRINTSB40, STRING* <40, 195) 

2070 RETURN 



Wenn Sie ein gutes Programm für das 
COLOUR GENIE 

(Assembler oder complllert) 
geschrieben haben und daran Interessiert 
sind es zu verkaufen, dann schicken Sie es uns zu. 
Wir zahlen Spitzenpreise für die 
Copyrights an Spielen 
und Hilfsprogrammen. 


RALF M. HÜBBEN, VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS 
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Umlaute für Genie I und II 


Hat man erst alle Zweifel über- 
wunden und sich für ein Compu- 
tersystem entschieden, was beim 
ersten Mal bekanntlich recht müh- 
sam und zeitraubend sein kann, 
scheint einem sein System das be- 
ste zu sein, was für das bezahlte 
Geld auf dem Markt erhältlich 
war. 

In der ersten Euphorie fallen 
daher manche Unzulänglichkeiten, 
oder weniger negativ ausgedrückt 
manche Besonderheiten des erwor- 
benen Computers, gar nicht so 
sehrauf. 

Erst, wenn man sich in sein 
System voll eingearbeitet, viele 
Programme selbst erstellt und Er- 
fahrungen gesammelt hat, fallen 
diese Besonderheiten auf. 

Eine solche stellt bei vielen 
Computern die Tastaturanordnung 
dar, die in der Regel nach dem 
Zeichensatz des jeweiligen Her- 
kunftslandes gestaltet ist. 

Nun kann man sich fragen, ob 
es denn wirklich so störend ist, 
daß die Y- und Z-Taste vertauscht 
und die deutschen Sonderzeichen 
gar nicht erst vorhanden sind. 

Die Beantwortung dieser Frage 
ist natürlich abhängig von der je- 
weiligen Anwendung des 
vorhandenen Computersystems. 

Spätestens aber dann, wenn 
man sich der Textverarbeitung 
widmet, stellt sich dieses Problem 
sehr schnell. 

Auch der Tastatur des Genie I 
sieht man an, daß sie nicht unbe- 
dingt auf deutsche Textverarbei- 
tung zugeschnitten ist. Wie schon 
oben beschrieben, muß sich der 
Schreibmaschinengewöhnte beim 
Genie I mit vertauschten und 
nicht vorhandenen Tasten herum- 
schlagen. 

Nun hat der Genie I auch in 
kommerziellen Bereichen Einzug 
gehalten, sodaß sein Hersteller sich 
wohl oder übel etwas einfallen las- 
sen mußte, um wenigstens Ä, ö, 
Ü und ß über die Tastatur erreich- 
bar zu machen. 

Zunächst wurde dem Genie ein 


deutscher Zeichensatz statt des 
amerikanischen eingesetzt, der 
dann außerdem noch die Klein- 
buchstaben enthielt. 

Hier noch ein Tip, wie Besitzer 
älterer Genie's ihren Zeichensatz 
begutachten können. Sie brauchen 
nur folgende kleine Basic-Zeile im 
Direktmodus einzugeben : 

FOR X=32 TO 191: 

PRINT CHRS(X)'' 

NEXTX 

Nach Betätigung der NEW Ll- 
NE-Taste erscheint der Zeichen- 
satz samt der Grafikzeichen. Bei 
Vorlage des neuen Zeichensatzes 
müssen nach dem Buchstaben Z 
folgende Zeichen folgen: 

Ä ö 0 Bindestrich Cursor 

Das einsetzen eines neues Zei- 
generators war jedoch nur die Vor- 
aussetzung dafür, daß die Sonder- 
zeichen auch auf dem Bildschirm 
darstellbar waren. Da die Tastatur 
aber in ihrem alten Zustand belas- 
sen wurde, waren einige Software- 
Kunststücke nötig, um diese Zei- 
chen auch über die Tastatur an- 
sprechen zu können. Bei den neu- 
eren Genie I Versionen mit dem 
Level IV ROM funktioniert dies 
so: 

Ä erreicht man mit Hochpf8il A 
ö " Hochpfeil O 

Ü " Hochpfeil U 

ß " Hochpfeil Z 

Will man auch Kleinbuchstaben 
haben, muß man zuvor noch die 
Shift-Taste drücken, sodaß für das 
kleine ä folgende Tasten gedrückt 
werden müssen : 

Shift Hochpfeil A 
Dies ist ein Verfahren, an das 
man sich gewiß gewöhnen kann, 
das aber wenig elegant ist. 

Das folgende Verfahren besteht 
aus einem kleinen Hardware-Ein- 
griff und richtet sich an all jene, 
die sich mit ihrem Genie I auch 
hardwaremäßig etwas auskennen. 

Um das Prinzip des Eingriffs 
zu verstehen, ist zur Veranschau- 
lichung in Bild 1 der Schaltplan 
der Tastaturplatine dargestellt. 

Wie der Schaltplan zeigt, wird 


bei der Betätigung einer Taste 
lediglich eine Schiene Ax mit ei- 
ner Schiene Bx verbunden, z. B. 
bei Taste A Schiene AI mit Schie- 
ne B2. Bei der Tastaturabfrage 
fragt der Computer nacheinander 
die Schiene AI bis A8 ab und 
prüft jeweils, welche der B-Schie- 
nen angesprochen wurde. 

Wie weiter aus dem Schalt- 
bild zu erkennen ist, sind die 
Verbindungen der Schiene A4 mit 
den Schienen B4 bis B8 nicht vor- 
handen. Gerade aber hier gehör- 
ten die Tasten mit den Sonder- 
zeichen hin. 

Mein Vorschlag besteht nun da- 
rin, auf der Tastaturplatine vier 
weitere Tasten anzubringen, die je- 
weils die Schiene A4 mit der zuge- 
hörigen B-Schiene verbindet. 

Die erforderlichen Genie-Tasten 
mit zugehörigen Aufsätzen habe 
ich mir für ein paar Mark bei der 
Firma Trommeschläger in St. Au- 
gustin bei Bonn besorgt. 

Nun zum Umbau: 

Hat man die Gehäuseabdeckung 
entfernt (bitte merken, wo die 
unterschiedlichen Schrauben hin- 
gehören), hat man die Tastatur- 
platine direkt vor sich. Um an ihr 
ungestört arbeiten zu können, löst 
man an ihr alle Befestigungs- 
schrauben und zieht das Verbin- 
dungskabel zum Computer in der 
linken oberen Ecke aus der 
schwarzen Halterung ab. Vorsicht/ 
dasi die Drähte nicht verbiegen! 
Nun kann die Tastatur vorsichtig 
aus dem Gehäuse genommen 
werden. 

Legt man die neuen Tasten so 
wie in Bild 2, so hat man den Vor- 
teil, die Tasten direkt in schon 
vorbereitete Steckplätze einsetzen 
zu können. Die Tasten ö, 0 und ß 
sind dann schon voll funktions- 
tüchtig. Beim Einsetzen der Tasten 
muß man beachten, daß sie so ein- 
gesetzt werden, daß die Anschluß- 
pins unten aus der Platine heraus- 
schauen und gut verlötet werden 
können. 

Wie schon erwähnt, erzeugen 
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die Tasten ö, Ü und ß schon di- 
rekt nach dem Eintöten die Son- 
derzeichen. Der Buchstabe Ä hin- 
gegen erzeugt jetzt den gleichen 
Code wie die Hochpfeil-Taste. Bei 
älteren Geräten ist dies nicht wei- 
ter schlimm, da der Hochpfeil ja 
auch Ä erzeugt. 

Bei Geräten mit Level 4 jedoch 
wird die Hochpfeil-Taste als Kon- 
troll-Taste verwendet und erzeugt 
für sich allein keinen Code mehr. 

Es müssen zunächst die Zulei- 
tungen zur Ä-Taste unterbrochen 
werden (mit spitzem Gegenstand 
die Leiterbahnen unterbrechen). 
Jetzt liegt die Ä-Taste isoliert von 
der übrigen Tastatur. Anschlies- 
send müssen zwei Leiterbahnen 
ausfindig gemacht werden, näm- 
lich eine, die von Schiene A4 
und eine die von Schiene B4 


kommt. Im Tastaturschaltbild 
(Bild 1) kann man erkennen, daß 
dies genau die beiden Schienen 
sind, die zur Erzeugung des Buch- 
stabens Ä mittels Tasters verbun- 
den werden müssen. 

Mit diesen Schienen muß nun 
der Ä-Taster verbunden werden, 
was mit zwei kurzen Stücken Lei- 
terdraht schnell erledigt ist (Bild 
3). 

Nun kann die Tastaturplatine 
wieder ins Gehäuse eingesetzt wer- 
den. Bevor die Befestigungs- 
schrauben wieder angezogen wer- 
den, verbindet man die Platine 
wieder mit dem Verbindungska- 
bel mit dem Computer, indem die 
Drähte des Kabels wieder vorsich- 
tig in die schwarze Halterung ein- 
gesteckt werden (verbogene 
Drähte erst wieder geradebiegen). 


Nachdem die Gehäuseabdeckung 
vorsichtig und provisorisch aufge- 
legt worden ist, kann man zu- 
nächst einmal testen, ob der Ein- 
bau erfolgreich war. Wenn nicht, 
müssen alle neuen Verbindungen 
noch einmal überprüft und gege- 
benenfalls geändert werden. Ist 
alles zufriedenstellend, kann die 
Tastatur wieder befestigt und die 
Abdeckung angeschraubt werden. 
Jetzt stehen für die zusätzlichen 
deutschen Sonderzeichen Ä, Ö, Ü 
und ß gesonderte Tasten zur Ver- 
fügung. Es mag vielleicht ent- 
täuschen, daß die neuen Zeichen 
nicht genau da liegen, wo sie nach 
einer deutschen Schreibmaschine 
liegen sollten. Dies liegt zum Teil 
jedoch im Aufbau der Tastatur- 
platine begründet, Auf der Platine 
sind noch an vielen anderen Stel- 
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len freie Steckplätze für weitere 
Tasten frei, sodaß der eine oder 
andere Leser, der sich mit dem Ge- 
danken an einen Umbau trägt, 
selbst wählen kann, wo er die neu- 
en Tasten plaziert haben will. 

Diese Umbauanleitung soll eine 


Anregung für diejenigen sein, die 
auch vor einer Hardwarelösung 
(besonders wenn diese recht ein- 
fach durchzuführen ist) nicht zu- 
rückschrecken und ein wenig mit 
dem Lötkolben umgehen können. 

Zum Schluß sei noch erwähnt, 


daß je nach dem wo die neuen 
Tasten liegen, das Gehäuse (Ge- 
häuseabdeckung) etwas ausgesägt 
(evtl, mit einer Laubsäge) werden 
muß. 

Catharina Stodden 



Bild 2 


Bild 3 


A 


l.l- U 

\ 




■ Verbindung zur Schiene A4 
‘Verbindung zur Schiene B4 


Leiterbahnen zur Ä-Taste unterbrechen 


Colour Genie 
Utilities 


Aus folgendem Assembler-Listing 
sind fünf Z 80 Programme zu ent- 
nehmen, mit denen man sich das 
Programmieren in Basic oder das 
Testen von Maschinenprogrammen 
etwas komfortabler gestalten 
kann. 

Nach dem Laden aller 22EH 
Bytes und dem einmaligen Auf- 
ruf durch "CALL 50DA" und 
"CALL 5220" sind die Befehle 
KILL, LINE, MERGE, CVD(X) 
sowie DEF und CMD verfügbar. 


deren Wirkungsweise nachfolgend 
beschrieben wird. 

KILLnnnnn 

Diese Routine (507C - 50D9) 
killt das Basic-Label nnnnn und 
hängt die nachfolgenden State- 
ments der vorangehenden Zeile 
an. Im Listing bleiben fünf " " 
(ASCII 5CH, über Taste Fl zu er- 
halten), die nachträglich mit Hilfe 
des Editors gelöscht werden kön- 
nen. Die Eingabe nnnnn ist zwin- 
gend, d. h. führende Nullen in der 


Zeilennummer dürfen nicht weg- 
gelassen werden. Die Umrechnung 
der ASCII kodierten Zeilennum- 
mer in die 2-Byte Hex-Zahl er- 
folgt in der Routine 50F2 - 5124 
und ist sicher nicht elegant, je- 
doch die mir einzig mögliche Lö- 
sung, da der Hersteller des Colour 
Genies sich entschlossen hat, sein 
Produkt ohne vernünftige Doku- 
mentation des Betriebssystems zu 
vertreiben. 

LINEnnnnn 
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51 


Dieser Befehl (5000 - 507B) stellt 
die Umkehrung von KILL dar, d. 
h. er fügt die Zeilennummer 
nnnnn dort im Basic-Programm 
ein, wo vorher die fünf '' " einge- 
schoben worden sind. Sowohl 
KILL als auch LINE melden sich 
bei Auftreten einer Fehlerbedin- 
gung, die durch Fehlen der fünf 
Back-Slashes oder gar des betref- 
fenden Labels gegeben sein kön- 
nen, mit "7-READY", andernfalls 
nur mit "READY". 

MERGE 

Auf eine Anregung aus der GENIE 
DATA Nr. 2, Seite 43, hin wurde 
diese Routine (5125 - 514E) ge- 
strickt. Soll zu einem Bäsic-Pro- 
gramm ein weiteres hinzu geladen 
werden, wird MERGE befohlen 
und die Meldung "H-READY" 
(H = high) erscheint. Nach dem 
Laden des Programmes wird durch 
ein zweites MERGE die Basic- 
Startad resse wieder auf den Start- 


5000 


(L = low) gemeldet. 

KILL und LINE können nur 
mit MERGE, MERGE jedoch 
kann alleine betrieben werden. 

CVD(X) 

Falls Sie wie ich das Denken in 
hexadezimalen Zahlen verab- 
scheuen und trotzdem eine Dezi- 
malzahl X in Hex umwandeln wol- 
len. Das Ergebnis erscheint direkt 
auf dem Bildschirm und ist durch 
die Eingabe von z.B. "A=CVD(X)" 
zu erzielen (515D -5184). 

DEF 

In 5190 - 521 F wird ein Pro- 
gramm angegeben, mit dem eine 
Anzeige der Z 80 Register z. B. zu 
Testzwecken möglich ist. Dotiert 
man das zu testende Maschinen- 
programm mit "CALL 5190" oder 
"RST 38", wobei dann jedoch die 
Restart-Adressen 4013 und 4014 
mit 5190 H geladen sein müssen, 
so werden, ohne das der Inhalt der 
Register verändert wird, in der 25. 


BC, DE, HL, IX und IY von links 
nach rechts angezeigt. Bis auf F, 
das zwecks besserer Lesbarkeit der 
Flags binär dargestellt ist, erfolgt 
die Anzeige hexadezimal. Das Pro- 
gramm wartet auf die Eingabe ei- 
ner beliebigen Taste und springt 
erst dann in das zu testende Pro- 
gramm zurück. 

Überflüssig zu erwähnen, daß 
natürlich die Zeilenzahl des Bild- 
schirms mit POKE 17145,25 auf 
25 vergrössert werden muß. 

DEF funktioniert ohne die an- 
deren Programme. Durch "CALL 
5220" werden dem Befehl DEF 
die Sprungadressen zu diesem Pro- 
gramm und dem Befehl CMD die 
Adresse 6000 H zu geordnet, so 
daß z. B. der sich dort befindende 
Colour Monitor aufgerufen wer- 
den kann, um die beschriebenen 
Programme problemlos in einen 
sicheren RAM-Bereich zu 
relocieren. 


5010 


5021 


502F 


gesetzt und "L-READY" 

Bildschirmzeile die Register AF, 


Wilfried Lyhs 

LD HL, (40F9) . 

2A 

F9 40 

5041 

LD A, ( IX) 

DD 

7E 

00 

LD DE,(40A4) 

ED 

5B A4 40 


CP 0 

FE 

0,0 


PUSH DE 

D5 



JR NZ,-9d 

20 

F7 


POP IX 

DD 

El 


INC IX 

DD 

23 


XOR A 

AF 



PUSH IX 

DD 

E5 


SBC HL, DE 

ED 

52 


POP DE 

Dl 



LD A,(IX) 

DD 

7E 00 


DEC IX 

DD 

2B 


CP 92d 

FE 

5C 


LD A, (IX) 

DD 

7E 

00 

JR Z,+13d 

28 

0D 

5052 

CP E 

BB 



INC IX 

DD 

23 


JR NZ,-8d 

20 

F8 


DEC HL 

2B 



LD A, (IX+1 ) 

DD 

7E 

01 

LD A.O 

3E 

00 


CP D 

BA 



CP H 

BC 



JR NZ,-14d 

20 

F2 


JR NZ,-15d 

20 Fl 


POP BC 

Cl 



CP L 

BD 



DEC BC 

OB 



JR NZ.-18d 

20 

EE 


DEC BC 

OB 



JR +86d 

18 

56 


PUSH BC 

C5 



LD B,4 

06 

04 

505F 

LD (IX),C 

DD 

71 

00 

INC IX 

DD 

23 


LD ( IX+1 ) ,B 

DD 

70 

01 

DEC HL 

2B 



POP IX 

DD 

El 


LD A, (IX) 

DD 

7E 00 


LD (IX), E 

DD 

73 

00 

CP 92d 

FE 

5C 


LD ( IX+1 ) ,D 

DD 

72 

01 

JR NZ,-25d 

20 

E7 


DEC IX 

DD 

2B 


DJNZ -12d 

10 

F4 


LD A, 0 

3E 

00 

_ 

CALL 50F2 

CD 

F2 50 

5071 

LD (IX), A 

DD 

77 

00 

POP HL 

El 



JP 0066 

C3 

66 

00 

DEC IX 

DD 

2B 


LD A, 63d 

3E 

"F 


LD (IX+1 ) ,H 

DD 

74 01 

5079 

JP 5137 

C3 

37 

51 

LD (IX), L 

DD 

75 00 

507C 

CALL 50F2 

CD 

F2 

50 

PUSH IX 

DD 

E5 


POP BC 

Cl 



INC IX 

DD 

23 

5080 

LD IX, (40A4) 

DD 

2A 

A4 40 

INC IX 

DD 

23 


LD DE , (40A4) 

ED 

5B 

A4 40 




/ 



LD HL,(40F9) 

2A F9 40 


XOR A 

AF 


SBC HL, DE 

ED 52 


LD A, (IX) 

DD 7E 00 

5091 

CP 0 

FE 00 


JR Z , + 1 3d 

28 0D 


INC IX 

DD 23 


DEC HL 

2B 


LD A,0 

3E 00 


CP H 

BC 


JR NZ,-15d 

20 Fl 


CP L 

BD 


JR NZ,-18d 

20 EE 

50A0 

JR -43d 

18 D5 


LD A, (IX+3) 

DD 7E 03 


CP C 

B9 


JR NZ,-19d 

20 ED 


LD A, (IX+4) 

DD 7E 04 


CP B 

B8 


JR NZ,-25d 

20 E7 


LD E , (IX+1 ) 

DD 5E 01 

50B1 

LD D, (IX+2) 

DD 56 02 


LD B.5 

06 05 


LD A, 92d 

3E 5C 


PUSH IX 

DD E5 


LD (IX), A 

DD 77 00 


INC IX 

DD 23 


DJNZ -7d 

10 F9 

50C1 

POP BC 

CI 


INC BC 

03 


DEC IX 

DD 2B 


LD A, ( IX) 

DD. 7E 00 


CP C 

B9 


JR NZ,-8d 

20 F8 


LD A, ( IX+1 ) 

DD 7E 01 


CP B 

B8 


JR NZ ,-14d 

20 F2 

50D1 

LD (IX), E 

DD 73 00 


LD ( IX+1 ) ,D 

DD 72 01 

50D7 

JP 0066 

C3 66 00 

5 ODA 

LD BC, 5000 

01 00 50 


LD (41A4),BC 

ED 43 A4 41 


LD BC , 507C 

01 7C 50 


LD (4192), BC 

ED 43 92 41 


JP 514F 

C3 4F 51 


NOP (7 mal) 


50F2 

EXX 

. D9 


LD HL, lOOOOd 

21 10 27 


PUSH HL 

E5 


LD HL , 1 OOOd 

21 E& 03 


PUSH HL 

E5 


LD HL,100d 

21 64 00 


PUSH HL 

E5 

50FF 

LD HL, 10d 

21 0A 00 


PUSH HL 

E5 


LD HL, ld 

21 01 00 


PUSH HL 

E5 


LD IY.41EB 

FD 21 EB 41 


LD HL, 0000 

21 00 00 


COMPUTERSYSTEME 


GENIE III 

64 KB RAM, 2x720 KB Disk-Spelcher, 

Bildschirm 64x16 oder 80x24 Zeichen. TRS-80* 

Mod. 1 kompatibel 

CP/M» fähig 6900,» 

GENIE I oder II 

64 KB RAM, Microsoft-BASIC, Bildschirm 64x16 
Zeichen, TRS-80® Mod. 1 

kompatibel 998,- 

mit Monitor ab 1295,- 

COLOUR GENIE 

Neueste Version mit Meßinstrument! 

16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 
auf Ihrem Farbfernseher, TRS-80“ Mod. 1 
BASIC kompatibel 598,-* 

»TRS-80 ist eingetragenes Warenzeichen der Tandy 
Corp. »CP/M ist eingetragenes Warenzeichen von Digital 
Research. 


Slime Line Laufwerk, 40 Track, SS/DD, 

250 K-Byte Speicherkapazität 625,- 

Slime Line Laufwerk, Doppelfloppy, kompl. 
mit Gehäuse, Netzteil u. Kabel 1499,-- 

Andere Laufwerke und Kapazitäten auf Anfrage 
lieferbar. 

Floppy Disk Controller für Video Genie und Tandy 
(double u. single density) incl. Drucker Interface und 
2 BASF 6106, im Gehäuse mit Netzteil und Kabel; 
voll Software kompatibel zu 

Tandy TRS-80® 2199,- 

Expansion Interface für TRS-80® incl. 32 K RAM und 
2 Jahre Garantie 926,-- 

Double Density Controller für Tandy und 
Video Genie 289,- 

16 K Erweiterung für Colour Genie 159,- 

Star Drucker DP 510 1195,- 

Zenith Monitor, grün 298,- 

Original Sanyo Monitor, bernstein entspiegelt 318,- 


BASF Disketten, Qualimetrik, Double Density 
geprüft 10 Stück 59,- 

Verbatim Disketten mit Verstärkungsring 

10 Stück ab 79.- 

Datencassette C 20 3,30 

Farbbänder für: 

Tandy Line Printer I, II u. IV je 15,-- 

Tandy Line Printer III u. V je 19,50 

Tandy DW II je 17,- 

Epson MX 80 je 22, - 

Itoh 8510, 1550 je 24,- 

Oki Microline je 9,50 

Rest auf Anfrage. 

Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 


cc Computer Studio GmbH 
. Elisabethstraße 5 
4600 Dortmund 1 
Tel. : 02 31 - 57 40 64 u. 52 81 84 
Tx 822 631 cccsd 


Neu: 8 Saiten Colour Genie Softwareliste 
kostenlos anfordern I 

Wir suchen ständig neue Programme fQr Colour Genie I 
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LD B,5 

06 

05 


I 


JR NZ, -33d 

20 

DF 

5110 

POP DE 

Dl 





RET 

C9 



LD A-(IY) 

FD 

7E 

00 


5185 

LD BC , 51 5D 

01 

5D 51 


DEC IY 

FD 

2B 




LD (415F) ,BC 

ED 

43 5F 41 


SUB A,48d 

D6 

30 




NOP 




JR 2 i +4d 

28 

04 




NOP 




ADD HL, DE 

19 





NOP 




DEC A 

3d 




518F 

RET 

C9 



JR NZ ,-4d 

?0 

FC 



5190 

PUSH AF 

F5 



DJNZ , -16d 

10 

FO 




PUSH IX 

DD 

E5 

5120 

POP DE 

Dl 





PUSH BC 

C5 



PUSH HL 

E5 





PUSH DE 

D5 



PUSH DE 

D5 





PUSH HL 

E5 



EXX 

D9 





PUSH AF 

F5 



RET 

C9 





PUSH BC 

C5 


5125 

LD HL, (40A4) 

ED 

6B 

A4 

40 


PUSH DE 

D5 



VOR A 

AF 





PUSH HL 

E5 



LD BC, 5801 

01 

01 

58 



PUSH IX 

DD 

E5 


SBC HL.BC 

ED 

42 




PUSH IY 

FD 

E5 


JR Z , +1 7d 

28 

11 




LD IX.47E6 

DD 

21 E6 47 


LD (40A4) , BC 

ED 

43 

A4 

40 

51A2 

LD B,5 

06 

05 


LD A,4Ch 

3E 

4C 




POP HL 

El 


5137 

CALL 0033 

CD 

33 

00 



LD C,2 

OE 

02 


LD A,2d 

ED 

2D 




LD D, 2 

16 

02 


CALL 0033 

CD 

33 

00 



XOR A 

AF 



JP 0066 

C3 

66 

00 



LD E,4 

IE 

04 


LD HL, (40F9) 

ED 

6B 

F9 

40 


RR L 

CB 

ID 


DEC HL 

2B 





RR A 

CB 

1F 


DEC HL 

2B 




51 BO 

DEC E 

ID 



LD (40A4),HL 

22 

A4 

40 



JR NZ,-7d 

20 

F9 


LD A,48h 

3E 

48 




SRL A 

CB 

3F 


JR -24d 

18 

E8 




SRL A 

CB 

3F 

514f 

LD BC,5125 

01 

25 

51 



SRL A 

CB 

3F 


LD (418C), 5C 

ED 

43 

8C 

41 


SRL A 

CB 

3F 


NO? 






CP lOd 

FE 

OA 


NOP 






JR NC, *4 

30 

04 


NOP 






ADD A,48d 

C6 

30 

5159 

JP 5185 

C3 

85 

51 


51C1 

JR +2 

18 

02 


NOP 






ADD A, 55d 

C6 

37 

515D 

CALL 0A7F 

CD 

7F 

OA 



LD (IX), A 

DD 

77 00 


LD D,H 

54 





DEC IX 

DD 

2B 


LD E,2 

IE 

02 




DEC D 

15 



LD C, 2 

OE 

02 




JR NZ,-36d 

20 

DC 


XOR A 

AF 





LD L,H 

6C 



LD B,4 

06 

04 




DEC C 

OD 



RLC D 

CB 

02 




JR NZ,-42d 

20 

D6 


RL A 

CB 

17 



51D1 

LD A, 32d 

3E 

20 


DJNZ -6 

10 

FA 




LD ( IX) ,A 

DD 

77 00 


CP OA 

FE 

OA 




DEC IX 

DD 

2B 

5170 

JR NC, +4 

30 

04 




DJNZ -54d 

10 

CA 


ADD A, 48d 

C6 

30 




LD B,8 

06 

08 


JR +2 

18 

02 




POP HL 

El 



ADD A, 55d 

C6 

37 




XOR A 

AF 



PUSH DE 

D5 





RR L 

CB 

ID 


CALL 0033 

CD 

33 

00 


51E0 

RLA 

17 



POP DE 

Dl 





ADD A,48d 

C6 

30 


DEC C 

OD 





LD (IX) ,A 

DD 

77 00 


JR NZ, -27d 

20 

E5 




DEC IX 

DD 

2B 

5180 

LD D,L 

55 





DJNZ -1 3d 

10 

F3 


DEC E 

ID 





LD A,32d 

3E 

20 


54 
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LD (IX), A 

DD 77 00 


ADD A, 55d 

. 

C6 

37 


DEC IX 

DD 2B 


LD (IX), A 


DD 

77 

00 

LD D, 2 

16 02 

5211 DEC IX 


DD 

2B 


XOR A 

AF 


DEC D 


15 



LD E,4 

IE 04 


JR NZ,-34d 


20 

DE 


RR H 

CB IC 


CALL 0049 


CD 

49 

00 

RRA 

1F 


POP HL 


El 



DEC E 

ID 


POP DE 


Dl 



JR NZ,-6 

20 FA 


POP BC 


CI 



SRL A 

CB 3F 


POP IX 


DD 

El 


SRL A 

CB 3F 


POP AF 


Fl 



SRL A 

CB 3F 


RET 

C9 




SRL A 

CB 3F 

5220 

LD BC , 6000 

01 

00 

60 


CP löd 

FE 0A 


LD (4174), BC 

ED 

43 

74 

41 

JR NC, +4 

30 04 


LD BC, 5190 

01 

90 

51 


ADD A,48d 

C6 30 


LD (4150, BC 

ED 

43 

5C 

41 

JR +2 

18 02 i 

522E 

RET 

C9 





Colour Genie als 

Schreibmaschine 


Wenn man oft zwischen Computer 
und Schreibmaschine wechselt, 
kann man durch die genau umge- 
kehrte Funktion der Shift Taste 
bei beiden Geräten irritiert wer- 
den. 

So jedenfalls ging es mir. Denn 
während man bei der Schreibma- 
schine Shift drücken muß, um 
die Großbuchstaben zu bekom- 
men, erhält man sie beim Com- 
puter ohne Shift, mit Shift er- 
hält man dort Kleinbuchstaben. 

Ich programmiere viel auf mei- 
nem Colour Genie, und so wie 
ich es sehe, besteht keine Not- 
wendigkeit dazu, Basicprogram- 
me in Großbuchstaben einzuge- 
ben, eher im Gegenteil. 

Wenn man zum Beispiel ein 
Basicprogramm mit vielen Print 
Statements eingibt, ist es ein- 
facher z.B. PRINT"Dies ist ein 
Test mit vielen Kleinbuchstaben" 
zu schreiben, und nur wenige 
male Shift für die wenigen Groß- 
buchstaben zu drücken, als viele 
male für die vielen Kleinbuchsta- 
ben. Das Colour Genie wandelt 
nämlich alle Kleinbuchstaben, 
die nicht zwischen Anführungs- 


zeichen stehen, in Großbuchsta- 
ben um, sodaß wir auch die Ba- 
sic Statements in Kleinbuchstaben 
eingeben. Insofern spielt es also 
keine Rolle ob wir "PRINT" 
oder "print" schreiben. Das Ge- 
nie versteht beides. 

Deshalb habe ich das kleine 
Programm geschrieben, das Sie 
hier abgedruckt sehen. Es nimmt 
Ihren Basicprogrammen keinen 
Speicherplatz weg, da es in einen 
normalerweise nur vom DOS be- 
legten Speicherplatz lädt. 

Es überläßt Ihnen die Ent- 
scheidung, "in welcher Richtung" 
Ihre Shift -Taste arbeitet. Sie kön- 
nen sowohl Kleinbuchstaben mit, 
als auch ohne Shift haben, je nach 
der jeweiligen Betriebsart. Sie kön- 
nen die Betriebsart umschalten, in- 
dem Sie gleichzeitig die Tasten 
Shift und CTRL drücken. 

Um das Programm einzugeben, 
brauchen Sie einen Editor/As- 
sembler.Ansonsten gibt es eigent- 
lich nichts dazu zu sagen, außer 
vielleicht zu dem Programmier- 
trick mit dem "Flag" in Zeile 240. 
Das Programm überschreibt die 
Adresse an der der Basic- Interpre- 


ter nachschaut, wo das Programm 
zur Tastaturabfrage steht. Das ist 
normalerweise 03E3H. Es setzt 
hier also seine eigene Adresse, und 
so benutzt der Basic-Interpreter al- 
so das Programm ab der Adresse 
"START" zur Tastaturabfrage. 

Dort wird überprüft, ob SHIFT- 
CTRL gedrückt ist, und wenn 
nicht wird gleich nach "START 1" 
weitergesprungen (Zeilen 100- 
120). Wenn diese Tasten gedrückt 
sind wird der Inhalt der Speicher- 
stelle "FLAG" entweder vom 
Wert 0C9H in den Wert 0, oder 
umgekehrt geändert (Zeilen 130- 
220). Dann wird das Programm an 
der Adresse "START 1" fortge- 
setzt. 

Dort wird ersteinmal ein Zei- 
chen von der Tastatur eingelesen 
(Zeile 230), also genau wie sonst 
ohne dieses Programm. 

Aber dann kommt es: 

Je nach Inhalt der Speicherstelle 
"FLAG" wird jetzt zum Basic zu- 
rückgekehrt, oder Klein- und 
Großbuchstaben werden ver- 
tauscht (Zeilen 250-370). Ent- 
hält "FLAG" nämlich eine Null, 
dann entspricht das der Maschi- 
nen-Sprache Anweisung NOP, die 
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tr 


dem Mikroprozessor sagt, er soll 
einen Moment lang garnichts ma- 
chen, und dann an der Speicher- 
stelle nach NO P Weiterarbeiten. 
0C9H, das entspricht der An- 
weisung RET, also Rückkehr zum 
Basic- Interpreter. 


Das Programm verändert sich al- 
so selbst. Das ist eine Program- 
mierungsart, die Assembler- Pro- 
grammierer oft und gerne anwen- 
den, wenn sie auch dem "Nur- 
Basic- Programmierer" weitgehend 
fremd ist. 


Übrigens, das Programm startet 
nach dem Einlesen automatisch, 
siehe GENIE DATA Nr. 2 (Mai/ 
Juni), Seite 29. 

Thomas Binzinger 


10 

ORG 

4016H 

20 

DEFW 

START 

30 

ORG 

41E2H 

40 

JP 

INIT 

50 

ORG 

403EH 

60 INIT 

CALL 

1C9H 

70 

LD 

A,0C9H 

80 

LD 

(41E2H), A 

90 

JP 

66H 

100 START 

LD 

A,(F880H) 

110 

CP 

17 

120 

JR 

NZ , START1 

130 

LD 

A,(FLAG) 

140 

CP 

0 

150 

JR 

NZ,LAB 

160 

LD 

A,0C9H 

170 

LD 

(FLAG),A 

180 

LD 

A,0 

190 

RET 


200 LAB 

LD 

A,0 

210 

LD 

(FLAG),A 

220 

RET 


230 STAR TI 

CALL 

03E3H 

240 FLAG 

RET . 


250 

CP 

65 

260 

RET 

C 

270 

CP 

123 

280 

RET 

NC 

290 

CP 

91 

300 

JR 

C,UPC 

310 

CP 

97 

320 

RET 

C 

330 

SBC 

A, 32 

340 

RET 


350 UPC 

ADD 

A, 32 

360 

RET 


370 

END 

INIT 
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Hardcopy 


Diesmal für Genie I mit Drucker 
ITOH 851 OA oder EG 3085. 

Dieser Drucker verfügt nicht 
über die Level 2 Blockgrafik. 
Trotzdem ist es möglich, eine 
Hardcopy der Bildschirmgrafik, 
sogar gemischt mit alphanumme- 
rischen Zeichen, zu erstellen. 

Da im Normalfall die auf dem 
Bildschirm gesetzten (hellen) Fel- 
der schwarz gedruckt werden, was 
bei einigen Anwendungen, z. B. 
Schachbrett, zu falscher Wieder- 
gabe führt, wurde die Möglich- 
keit einer Invertierung der Grafik- 
zeichen vorgesehen. Dies geschieht 
durch Laden eines von Null ver- 
schiedenen Wertes in die Spei- 
cherstelle Flag 1. Von Basic aus 
z. B. durch POKE (Flagl ),1 . Aus- 


schalten der Invertierung durch 
POKE (Flagl ),0. Die invertierte, 
jetzt faj-brichtige Wiedergabe von 
Bild 1 zeigt Bild 2. Es werden nur 
Grafikzeichen mit ASCII Werten 
die größer oder gleich 128 sind 
invertiert. Mit Space .erzeugte 
Leerfelder bleiben im Ausdruck 
weiß. Dies geschieht, um Schrift- 
felder unverändert zu lassen. Um 
einen schwarzen Block zu erzeu- 
gen muß also bei inverser Darstel- 
lung das Leerzeichen 128 statt 
Space (32) verwendet werden. 

Zu empfehlen ist der Druck- 
modus unidirectional. Dieser Mo- 
dus kann im Basic im Direkt-Mo- 
dus oder vom Hauptprogramm 
durch PRINT CHR£ (27)"> " ein- 
gestellt werden. 


Die Schriftart ist frei wählbar, 
jedoch werden nur in Schriftart 
"Q" (Compressed) Quadrate auf 
dem Bildschirm auch nahezu qua- 
dratisch auf dem Papier ausge- 
druckt. Bei anderen Programmen 
ist eine breitere Darstellung durch 
Schriftart "N" (Normal) oder "E" 
(Elite) vorteilhafter. Der Ausdruck 
hat bei Schriftart "Q" etwa die 
Größe 95x70 mm, bei Schriftart 
"N" etwa 162x70 mm. Die Dauer 
des Drückens beträgt etwa eine 
Minute. 

Bei Anpassung der Druckeraus- 
gabe 'OUTPR' (statt OUT(0FDH), 
A muß es heißen LD (37E8),A) 
müßte dieses Unterprogramm auch 
auch auf dem TRS 80 laufen. 

Werner Pohl 





HEX 

7D00 

00F5 

C5D5 

7D1 0 

4006 

40CB 

7D20 

A87D 

1 83A 

7D30 

F0CD 

B97D 

7D40 

7DAF 

CB4E 

7D50 

7DAF 

CB6E 

7D60 

B2E5 

E50 6 

7D70 

0B02 

21E7 

7D30 

ED52 

21 ED 

7D90 

F5CD 

Dl 05 

7DA0 

05F1 

EE0F 

7DB0 

2310 

FC22 

7DC0 

F1EE 

FF 1 8 


DUMP 


E521 

ED7D 

22E5 

7E20 

0D7E 

CD90. 

AFCB 

4628 

02F6 

AFCB 

6680 

02F6 

2302 

F60F 

CB5E 

2802 

F60F 

CD9A 

0 521 

E07D 

7ECD 

7D7E 

CD90 

7D23 

7D22 

E57D 

El 20 

20FB 

F1D3 

FDC9 

1801 

F1C-9 

E5C5 

E57D 

CI El 

C9F5 

01 Fl 

C5F5 

E506 


7D21 083C 1100 
7DAF CDA8 7DCD 
0FC-B 5628 02F6 
0FCD 9A7D CDA8 
2302 F6F0 CDB9 
7DCD AS7D 2310 
907D 2310 F90 1 
0B78 B100 F6E1 
86E1 Dl CI F1C9 
F53A 007D B728 
2AE5 7D06 0477 
3A00 7DB7 2305 
0621 F27F 7ECD 
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7DD0 907D 2310 F9E1 F108 84CD 907D 18FB C1C9 . Ü8 .YAQ . .M . ü . AAI 

7DE8 1B54 3137 ÖD00 00 IE 5330 3531 32F-F FFFF .TI 7 S8512 

7DF0 FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF 

PRUEPSUMME=878F 


Der Bereich von 7DED bis 7FEC wird zum Zwischenspeichern benutzt. 


00010 


ÜRG 

7D80H 

00540 II 

LD 

A , ( HL) 

00020 

FLA61 

DEFB 

0 

0 8550 

CALL 

OUTPR 

00030 

HARD 

PUSH 

AF 

80580 

INC 

HL 

00040 


PUSH 

BC 

88570 

DJNZ 

I I 

00 050 


PUSH 

DE 

00580 

LD 

BC , 523D 

00080 


PUSH 

HL 

00598 

LD 

HL.BUF2 

00070 


LD 

HL , BUF3 

00880 12 

LD 

A, (HL) ’ 

00080 


LD 

< BUF 1 > , HL 

008L0 

CALL 

OUTPR 

000 90 


LD 

HL , 3C00H 

00820 

INC 

HL 

00100 


LD 

DE , 400 8 H 

00 838 

DEC 

BC 

00110 

NW 2 

LD 

B , 40 H 

90840 

LD 

A,B 

00120 

NEW 

BIT 

7, (HL) 

00858 

OR 

C 

00130 


JR 

NZ ,N1 

00880 

JR 

NZ , I 2 

08140 


LD 

A , < HL) 

80870 

POP 

HL 

00150 


CALL 

OUTPR 

08880 

SBC 

HL , DE 

00180 


XOR 

A 

80898 

LD 

HL , BUF3 

00170 


CALL 

SP4 

08 708 

LD 

( BUF 1 ) .HL 

00180 


CALL 

3P4 

00710 

POP 

HL 

00190 


JR 

NEW1 

00728 

JR 

NZ , NW2 

00200 

NI 

.XÜR 

A 

00738 

POP 

HL 

80210 


BIT 

0 , (HL) 

88 740 

POP 

DE 

00220 


JR 

Z ,N2 

0 8 750 

POP 

BC 

00230 


OR 

8FH 

06780 

POP 

AF 

80240 

N2 

BIT 

2, (HL) 

00770 

RET 


0 8 250 


JR 

2 ,N3 

00788 OUTPR 

PUSH 

AF 

00280 


ÜR 

0F8H 

88790 Ol 

CALL 

05D1H 

0 0270 

N3 

CALL 

0T4 

00 300 

JR 

NZ ,01 

00280 


XQR 

A 

80810 

POP 

AF 

00298 


BIT 

-fc. 

X 

r 

V/ 

08820 

OUT 

( 0FDH) , A 

00300 


JR 

Z ,N4 

00830 

RET 


00310 


OR 

0FH 

00840 INVERS 

PUSH 

AF 

00 320 

N4 

CALL 

INVERS 

80850 

LD 

A , < FLAG1 > 

00330 


CALL 

SP4 . 

80880 

OR 

A 

80 348 


XOR 

A 

08870 

JR 

2 j RT2 

00350 


BIT 

1 ,(HL> 

08830 

POP 

AF 

80388 


JR 

Z,N5 

00890 

XOR 

0FH 

80370 


OR 

0FH 

00980 

JR 

RT3 

08 380 

N5 

BIT 

3, (HL) 

08910 RT2 

POP 

AF 

08398 


JR 

Z,N8 

80920 RT3 

RET 


00480 


OR 

0F0H 

00930 SP4 

PUSH 

HL 

00418 

N8 

CALL 

OT 4 

08940 

PUSH 

BC 

00420 


XOR 


00950 

LD 

HL , ( BUF 1 ) 

00430 


BIT 

5, (HL) 

00980 

LD 

B,4 

00440 


JR 

2 >N7 ~ 

00970 "S1 ' 

"LD 

(HL) , A 

00450 


OR 

0FH 

00988 

INC 

HL 

00 480 

N7 

CALL 

INVERS 

00998 

DJNZ 

S1 

88470 


CALL 

SP4 

01008 

LD 

( BUF 1 ) , HL 

08 480 

NEW1 

INC 

HL 

01010 

POP 

BC 

80 498 


DJNZ 

NEW 

01820 

POP 

HL 

88500 


PUSH 

HL 

01030 

RET 


00518 


PUSH 

HL 

01040 'OT 4 

PUSH 

AF 

08528 


LD 

B , 5 

01050 

LD 

A , < FLAG1 ) 

88530 


LD 

HL.BUF0 

01080 

OR 

A 



KLEINANZEIGEN 


Sucha für in der Genie Data 
erschienenen Colour-Genie- 
Programme die dazu not- 
wendigen Druckprogramme 
für Drucker Star DP 510. 
Angebote an Helmut Beier 
Postfach 1225 
6836 Oftersheim 


Suche Colour Genie Soft- 
ware und Hardware. 

Bernd Eckstein, Hauptstr. 
138, 5014 Kerpen 1 Horrem 


Colour Genie: Programm- 
und Erfahrungsaustausch 
wünscht Erwin Jurschitza, 
Ellensindstr. 7A, 8900 

Augsburg 21 


Suche defektes GENIE I o. 
II bis 400 DM. UdoJourdan 
Darmstädter Str. 66, 6080 
Groß-Gerau 


Colour-Genie-SOFTWARE : 
Action-Spiele (Flug-Simula 
tor, Space T ravel ...) , Mathe 


Pr. ... HARDWARE: kom- 
patibele Joysticks und Pad- 
dies. Info 50 Pf., H. Czech, 
Kölner-6, 5090 Lev. 3 

Datext 2! Das kombinierte 
Datei- und TextverarbBi- 
tungsprogramm für Video 
Genie auf Cassette. Sucht 
nach 9 Kriterien, Übernah- 
me der Datei ins Textpro- 
gramm, erstellt z. B. Serien- 
briefe, abspeichern von Da- 
tei und Text auf Cassette. 
Info bei Ottmar Bange, Auf 
der Valstadt 7, 5786 SÜN- 
DERN 15. 


Genie I 64k + Monitor + 
ITOH 8510 A zusammen 
nur 2300,-. Wenig 
gebraucht Tel. 08142/5929 


Colour-Genie Joysticks zu 
verkaufen. 1 Monat alt. 

199 DM. Tel. 06821/77168. 
Ab 16 Uhr. 


Geld verdienen mit dem Mikrocomputer 

Wie Sie das machen können, zeigt Ihnen unsere Arbeitsmappe »Geld verdienen 
mll dem Mikrocomputer». Wir zeigen Ihnen wlo Sie mit einem Adrossenvorlag 
Geld verdienen können, oder wie ein TextservIceGOro eutgebeul wird. Weitere 
Themen sind: 

• Geschaiteanmeldung und wie man es macht 

• Start von zu Hause aus 

• Vermittlungsgeschäfte per Mikrocomputer 

• Verkaufen Sie Software 

• Geld verdienen mll einem Buchversand 

• Das Computar-Klnderbuch 

• Das Geschäft mit den Vorelnon 

• Wie Sie einen Computershop eröffnen 

• Gold verdienen mH Bausätzen und Tellen 

• Der freiberufliche Programmierer 

• Wie Sie nebenberuflich Computer verkaufen können und viele weitere Tips, 
Ideen und Anregungen. Auch ein umrangreiches Adressenverzeichnis Ist 
belgelügt, damit Sie wissen wo Sie was beziehen können. 

Dio Mappe kostel mit Chocklisten DM 96.-. Lieferung erfolgt per Nachnahme 
+ Porto oder gegen Scheck portofrei. Garantie: Sie haben Rackgaberecht 
Innerhalb 8 Tagen. 

Verlag P. Klrchmeier, Ringstr. 3/Ck, 7504 Weingarten, Tel. 07244/2871 


Dia nächste GENIE DATA erscheint am 
10. November 1983 

Der GENIE DATA Sonderband aus Heft 
Nummer 1 und 2 erscheint am 
15. Dezember 1983 

Anzeigenannahmeschluß für Nummer 5 ist 
der 10. Oktober 1983 






Diebrandheiße DONKEY KONG VERSION FÜR IHR QQLOUR-GENIE 



10 verschiedene Spiel-Szenen, ganz tolle Grafik. Top Sound 


O R I L L A: In Multi-Colour und HÜBI -Vision. 


GORILLA: Demnächst auf Ihrem Bildschirm. 


*********************************************** 
Produktion: Heinz Hübben 
^ Realisation und Special-Effects: T. M. BINZINGER 
Weltvertrieb: Fa. Heinz Hübben, Abt. Software-Verlag 

Mühlbachstraße 2, D-5429 Marienfels/Taunus 
Preis: NUR DM 49 ,“ 












SOUND- UND GRAFIK-EFFEKTEN 


i n z i n g© r .fair ihr Coiour Genie 


Zu beziehen bei Firma Heinz Hübben, Abteilung Software-Verlag, Mühlbachstr. 2, 5429 Maräenfels/Ts. 







Der VZ200 COLOUR COMPUTER bietet Ihnen folgende Vorteile zu einem unschlagbaren Superpreis: 

12 K Microsoft* Basic im ROM, 4K RAM, erweiterbar um 16K oder auf 64K, 32 Zeichen auf 16 Zeilen, Grafik und Text ist 
kombinierbar, HiRes Grafik-Modus mit 128x64 Punkten und 8 Farben, komplette Tastatur mit 45 Tasten, Basic-Befehle mit 
einem Tastendruck, im Textmodus 9 Farben, Tonwiedergabe über eingebauten Lautsprecher, mit COPY-Befehl voller Ausdruck 
der Bildschirmgrafik, 600 Baud Cassetten-Interface für handelsübliche Cassettenrecorder (kein teueres Spezialgerät), 
Centronics-Paralell-Druckerinterface (Sonderzubehör j, Peripherie-Anschluß (direkt eingebaut), anschließbar an jeden Farb- 
oder SW-Fernseher oder Video-Monitor, und, und, und 

Im Lieferumfang enthalten sind 3 deutsche Handbücher, eine Demo-Cassette, ein Netzteil und der Computer. Und nur bei uns 
kostenlos zu jedem VZ200 COLOR COMPUTER zwei tolle Telespiele 1 1 1 

DAS ALLES ZUM SUPERPREIS VON NUR 299,- DM!!! • 16K Erweiterung nur DM 149,- 

Unten Abgebildete Peripherie befindet sich in Vorbereitung. ‘Microsoft ist eing. Warenzeichen der Microsoft Inc. Washington. 

RALF M. HtlBBEN, VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS, TEL.: 06772-7828 

**** SOFORT BESTELLEN!!! *»** 


Erweiterungs-Möglichkelten 

für Ihren VZ 200 COLOR COMPUTER 





